begin Application.ShowMainForm:=False; ... ShowWindow(Application.Handle, SW_HIDE); end;
procedure TForm1.FormCreate(Sender: TObject); begin Visible:=False; ... end;