ShowModal funktioniert nicht

[youuu]

Zitat von stahli:

Zeig mal mehr...

(Ups, kein roter Kasten?)

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskBar:= true;

  frm_Login:= Tfrm_Login.Create(nil);
  try
    if frm_Login.ShowModal = mrOk then
      Application.CreateForm(Tfrm_Start, frm_Start);
  finally
    frm_Login.Free;
  end;
  Application.Run;
end.

Login Form:

Delphi-Quellcode:

procedure Tfrm_Login.ButtonLoginClick(Sender: TObject);
begin
  ModalResult:= mrOk;
end;