ShowModal funktioniert nicht

[youuu]

Hi,

ich diesen Code im Programm Quelltext, um einen Login zu realisieren.

Delphi-Quellcode:

    if frm_Login.ShowModal <> mrOk then
      Exit
    else
    Begin
      Application.Title:= 'verwaltung';
      Application.CreateForm(Tfrm_Start, frm_Start);
    End;

in der Login Form habe ich einen Button der

ModalResult:= mrOk; übergibt, jedoch wird immer if frm_Login.ShowModal <> mrOk then Exit ausgeführt, was kann der Grund sein?