Окно как в офисе[delphi]

Всем привет. Подскажите как сделать что бы вылетало окно перед запуском программы как в офисе

 

ищи примеры splash screen

 

Сделай эту сплэш форму главным окном, убери заголовок окна(вроде свойство BorderStyle поставить на bsnone) и отображай все остальные окна после выполнения всех нужных тебе загрузок сплэш формы.

 

я делаю так, может быть коряво, но просто, в проекте пишу

PHP:

program Primer;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  UnitMainForm in 'UnitMainForm.pas' {MainForm},
  UnitZastForm in 'UnitZastForm.pas' {ZastForm},
  UnitAboutBox in 'UnitAboutBox.pas' {AboutBox};

{$R *.res}

begin
 try
  Application.Initialize;
  ZastForm:=TZastForm.Create(Application);
  ZastForm.Show;
  ZastForm.Update;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutBox, AboutBox);
  ZastForm.Hide;
  ZastForm.Free;
 except
  on e: Exception do
  begin
   MessageDlg(e.Message, mtError,[mbOk],0);
   MainForm.Memo1.Lines.Add(e.Message);
  end
  else
  begin
   MessageDlg('Unknow error!', mtError,[mbOk],0);
  end;
 end;
  Application.Run;
end.

форма ZastForm соответственно заставка, у нее
borderstyle bsNone
formstyle fsStayOnTop
position poScreenCenter
ну и какойнибуть имайже на всю морду