TPotok1=class (TThRead)

protected

procedure Execute();override;

end;

 

TPotok2=class (TThRead)

protected

procedure Execute();override;

end;

 

var

Potok1: TPotok1;

Potok2: TPotok2;

 

procedure TPotok1.Execute();

begin

  While not Terminated do Form1.Timer1.Enabled:=true;

end;

 

procedure TPotok2.Execute();

begin

  While not Terminated do Form1.Timer2.Enabled:=true;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Potok1:=TPotok1.Create(false);

  Potok1.Priority:=tpHighest;

  Potok2:=TPotok2.Create(false);

  Potok2.Priority:=tpHighest;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Potok1.Terminate;

  Potok2.Terminate;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  //действие таймера 1

  Timer1.Enabled:=false;

end;

 

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  //действие таймера 2

  Timer2.Enabled:=false;

end;

SetPriorityClass(GetCurrentProcess,HIGH_PRIORITY_CLASS);