прога на делфи. что-то я перемудрил с заставкой.

[Дмитрий36]

Как говорится лучше-враг хорошего. Сделал прогу. Все хорошо работало. Решил сделать заставку. И где-то накосячил. Теперь не пойму где. Голова уже не соображает. Ниже кидаю прогу. Как сделать, чтобы заставка скрывалась через например 5 секунд? http://www.fayloobmennik.net/2889260
заранее спасибо за помощь

[GetMax]

Откройте например через отладчик файл project1.dpr и удалите от туда всё лишнее что бы осталось

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := false;

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);

  Application.Run;

end.

Дальше открывайте форму заставку (у Вас это видимо Form9) и кидаете на нее компонент таймер. Интервал таймера задаете например 5000, Enabled := true. Дальше в событии для таймера пишите

procedure TForm9.Timer1Timer(Sender: TObject);
begin
  Close;
end;

Открываете главную форму и в событии OnShow для нее пишите

procedure TForm1.FormShow(Sender: TObject);
begin
  Form9.ShowModal();
end;

Заставка готова.
Ну и для Form2 в настройках свойство Visible установите в false, что бы эта форма у Вас не мелькала при запуске программы.

[Дмитрий36]

большое спасибо за помощь) все работает)