procedure TForm1.Timer2Timer(Sender: TObject); begin Label1.Caption:='timer2 start'; end;procedure TForm1.BitBtn1Click(Sender: TObject); begin Timer1.Enabled:=True; end;procedure TForm1.Timer1Timer(Sender: TObject); begin if Timer2.Enabled<> true then Timer2.Enabled:=true; end;
begin
Label1.Caption:='timer2 start';
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Timer2.Enabled<> true then
Timer2.Enabled:=true;
end;