procedure nach Application.run

[nahpets]

Hallo,

ob's so geht weiß ich nicht, versuche es bitte einmal in dieser Art:

Delphi-Quellcode:

//dpr 
  Application.Initialize; 
  Application.CreateForm(THauptform, Hauptform); 
  if (AnsiStrLiComp(PChar(ParamStr(1)),'open',4)=0) then begin
    Application.ShowMainForm := false;  //Hauptformular nicht anzeigen 
    Hauptform.NebenformShow;
  end;
  Application.Run; 

//Hauptform 
procedure THauptform.NebenformShow; 
begin 
  Hide;
  NebenForm:= TNebenForm.Create(Self); 
  NebenForm.NachFormCreate(Self); 
  NebenForm.ShowModal; 
end;