wenn du 2 sekunden warten willst dann so:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var mySplash: TYourSplashForm;
begin
mySplash := TyourSplashForm.Create(nil);
mySplash.Show;
Application.ProcessMessages;
sleep(2000);
//do the things
mySplash.Free;
end;