非模态窗口显示的问题

Form1.visible:=true;
//while (Visible) do Application.ProcessMessages;
if Form1.ModalResult = mrOk then
beginend;如何让Form1显示之后,等取得Form1的返回值再继续往下执行?我加了while (Visible) do Application.ProcessMessages 这句代码之后,会带来很多问题,影响其他form的输入.有没有更好的办法来达到这种功能?