Отображение логотипа при запуске приложения

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
  ULogo in 'ULogo.pas' {LogoForm};

{$R *.RES}

begin
  Application.Initialize; {до этого момента никаких изменений}
  with TLogoForm.Create(Application) do
  try
    Show;
    Update;
    Application.CreateForm(TForm1, Form1);
{ GProgress.AddProgress(1); - здесь можно двигать прогресс, если TGauge или
  TProgressBar лежат на TLogoForm, если есть еще формы, то
  Application.CreateForm(TForm2, Form2); и т.д.}
  finally
    Free;
  end;
  Application.Run;
end.