Ситуация такая: При запуске программы заполняется TreeView и БД (основной потребитель времени) и выполняются еще кое какие действия для подготовки программы к работе. Все это довольно сильно тормозит загрузку главной формы (на не быстрых компах создается эффект, что программа не запустилась и соправождается попыткой повторного запуска). Хотелось бы сделать так чтоб эти действия происходили до показа основной формы и во время них появлялось какое-нибудь окошечко которое сообщает что программа запущена и идет подготовка к работе. Как можно такое реализовать?

Создаем еще одно окно, допустим Form2. На ней размещаем:
- логотип (по желанию)
- прогресс (TProgressBar, TGauge)
- таймер (Timer)
На первой форме создаем обработчик события OnShow:

Код

Procedure TForm1.FormShow(Snedr:TOBject); Begin   Form2.ShowModal End;

То есть перед отображением главной формы показать вторую, в которой, по таймеру, сделать нужные действия, после чего программным путем закрыть Form2, таким образом ShowModal, выполниться и управление перастся в главную форму.
Добавлено @ 15:45
Вот код (примерный) для второй формы:

Код

Procedure TForm2.FormShow(Sender:TObject); Begin    ProgressBar1.Position:=0;   Timer1.Enabled:=True // запускаем таймер (в дизайне сделай ему False) End; Procedure TForm2.Timer1Timer(Sender:TObject); Begin   ProgressBar1.Position:=ProgressBar1.Position+1; // Инкремент  прогрессу   Timer1.Enabled:=False;   // НУЖНО!!!!   case ProgressBar1.Position Of      1: //Выполнить первую часть действий, например, Connect к базе      2: //выполнить 2-ую часть , например, открыть нужные наборы данных      ...      50: //выполнить 50-ое действие.....      ...      100:          Begin  // Ура дошли до конца!             Form2.Close // Закрыть вторую форму и вернуться к главной          End;    End;   Timer1.Enabled:=ProgressBar1.Position<100 End;

Может так:

Код

program MyProg; uses   Forms,   Form1 in 'Form1.pas' {Form1},   USplash in 'USplash.pas' {Splash}, {$R *.res} begin   Application.Initialize;   Application.Title := 'Моя прога';   Application.CreateForm(TSplash, Splash);   Application.CreateForm(TForm1, Form1);   Splash.ShowModal;   Application.Run; end.

Создание заставки при старте программы