program ApprehendDemo;

uses
  Forms,
  FrmMain in 'FrmMain.pas' {FormMain},
  fullscrn in 'fullscrn.pas' {FullScreen},
  ScreenDelay in 'ScreenDelay.pas' {DelayDlg},
  Splash in 'Splash.pas' {SplashForm};

{$R *.RES}

begin
  SplashForm := TSplashForm.Create(Application);
  try
    SplashForm.Show;
    SplashForm.Refresh;
    Application.Initialize;
    SplashForm.Update;
    Application.Title := 'Apprehend Demo';
    Application.CreateForm(TFormMain, FormMain);
    Application.CreateForm(TDelayDlg, DelayDlg);
    SplashForm.Close;
    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;
  finally
    SplashForm.Free;
  end;
  Application.Run;
end.