How to create a splash screen for slow loading apps
program admin;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {splash};
{$R *.RES}
begin
Application.Initialize;
splash:=Tsplash.create(application);
splash.show;
splash.refresh;
Application.CreateForm(TForm1, Form1);
form1.show;
splash.free;
Application.Run;
end.