[Millenium]

Вечерком может положу тут более интересное решение.

былбы очень признателен,а то мучаюсь тут.

[Savant]

Ну вот собственно этот example, как обещал...
Решил особо не заморачиваться и сделать всё попроще.

Основные моменты:
1. Создаем новый поток, который и будет убирать в нужное время splash screen. Указываем ему приоритет как Idle, чтобы не мешал основному процессу загрузки. Этот поток будет ждать, пока не будет создана главная форма и затем через 250 мс закроет заставку.

Код:

procedure TMyThread.Execute;
begin
  Form1 := nil;
  while Form1 = nil do ;
  Sleep(250);
  Synchronize(SplashScreen.Hide);
  Synchronize(SplashScreen.Free);
end;

2. На самой форме заставки размещаем картинку и TLabel, хотя можно и другие комбинации. В TLabel можно выводить какую-либо информацию о процессе загрузки приложения.

Код:

...
  myThread := TMyThread.Create(False);
  SplashScreen := TSplashScreen.Create(Application);
  SplashScreen.Show;
  SplashScreen.Label1.Caption := '> Loading.... Please wait';
  SplashScreen.Update;
...

3. Т.к. заставки используются обычно только при долгой загрузке программы, то я включил специальный код для задержки исполнения программы на 2-3 с.

Код:

var
  i: Integer;
  a: Extended;
...
  // имитация "тяжелой" загрузки
  a:= 1.0;
  for i:=1 to 9999999 do a:=sin(a) * cos(i * 1.0);
...

Естественно, в реальной программе вместо этого кода будут операции по загрузке конфигурации и инициализации модулей или что-то подобное. После выполнения этих операций создается главная форма и запускается основной цикл сообщений. Вспомним, что созданный дополнительный поток следит за состоянием главной формы и закроет форму с заставкой через 250 мс.

Код:

...
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

В общем-то и всё

Исходник и откомпилированный exe тут - http://www.webfile.ru/290232 (205 кб)