ShowModal，要按两次才可以
主界面：

procedure tmainform.FormCreate(Sender: TObject);
var
  Login:TLoginForm;
begin
  Login :=TLoginForm.Create(Self);
  if Login.ShowModal=mrOk then
  begin

  end;
end;

登录窗口：

procedure TLoginForm.Button2Click(Sender: TObject);//Button2的默认ModalResult为mrNone
begin
  if (Length(Trim(Edit1.Text))=0) then
  begin
    ShowMessage('输入帐号');
    Exit;
  end;
  if (Length(Trim(Edit2.Text))=0) then
  begin
    ShowMessage('输入密码');
    Exit;
  end;
  Button2.ModalResult :=mrOk;
end;

需要按两次按钮，Login登录窗口才可以消失转到主窗体上
[解决办法]
Button2.ModalResult :=mrOk;

改成

ModalResult := mrOk;