как применить sleep только для form1

[Аватар]

{TForm1}

TForm1 = class(TForm)
  private
    ...
    lTimer: Boolean;
  public
    ...
    procedure SetActiveTimer(Value: Boolean);
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  lTimer:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not lTimer then Exit;
  ...
end;

procedure TForm1.SetActiveTimer(Value: Boolean);
begin
  lTimer:=Value;
end;

...

{TForm2}

procedure TForm2.FormCreate(Sender: TObject);
begin
  Form1.SetActiveTimer(False);
  ...
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  ...
  Form1.SetActiveTimer(True);
end;

ADD
В примере предполагается, что Form2 динамически создается и уничтожается

[scroyler]

не пашет. таймер как работал,так и работает

[Аватар]

не пашет. таймер как работал,так и работает

Все пашет, если правильно кодировать

[scroyler]

можешь тогда проэкт скинуть?

[Аватар]

Сообщение от scroyler

можешь тогда проэкт скинуть?

Какой проект? Я код прямо здесь накидал

[scroyler]

ну ладно,спасибо тогда)