ShowModal funktioniert nicht

[Björn Ole]

So funktioniert das bei mir ganz gut:

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := True;
with TLoginForm.Create(nil) do
begin
  try
    if ShowModal = mrOk then
    begin
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    end;
  finally
    Free;   
  end;
end;

Edit: Huch, 100ster!