主工程:
With TSplashForm.Create(nil) do
begin // show splash windows for init all procs
Show;
Update;
Application.Initialize;
InitInfoLabel.Caption:='Loading ...';
Update;
Application.CreateForm(TMainForm, MainForm);
Hide;
Free;
end;
end;
// run app
Application.Run;