ShowModal funktioniert nicht

[youuu]

Zitat von 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!

Damit erhalte ich eine Zugriffsverletzung