[lostbananan]

Спасибо! Попробую завтра - сегодня я уже устал...

Уже пробывал - чего-то не получается - на Sleep(5000); ругается неопредделенный идентификатор, когда слип заремарир в ран-тайм режиме выдает система ошибку EAcsessViolation// чтение по адресу 00000..
Чьто не так:
вот весь код моего проекта:

Код:

program Loh1;

uses
  Forms,
  main in 'main.pas' {Form1},
  Unit2 in 'ini\Головна\1\Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;

  // Показуємо додаткову форму форму
    With Form2.Create(Nil) Do
      Begin
        Show;
        Update;
//        Sleep(5000);
        Free;
      End;
end.