Te adjunto un pequeño ejemplo de código fuente del proyecto:
Código Delphi
[-]
Application.Initialize;
FSplashForm := TFSplashForm.Create(Application);
FSplashForm.Show;
Application.CreateForm(TDMMain, DMMain);
if DMMain.Login then
begin
Application.CreateForm(TFMain, FMain);
end;
FSplashForm.Hide;
FSplashForm.Free;
Application.Run;