Programmēšana

Sveiki. Piedodiet, ka jautāju, bet vienkārši vēlos zināt un man pašam pagaidām nav nekas sanācis, tātad skolā ir uzdots mājasdarbs, izveidot taimeri, kur uzspiežot "+" pogu tas skaitas pa sekundei uz priekšu un uzspiežot "-" tas skaitas pa sekundei atpakaļ, un "stop" aptur šo taimeri, man nesanāk "-" , lai taimeris skaitītos atpakaļ. Lazarusā.pascal.

Rādīt spoileri
procedure TForm1.Timer1Timer(Sender: TObject);

begin
label1.Caption:=IntToStr(StrToInt(label1.caption)+1);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=IntToStr(StrToInt(label1.caption)-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin

end;

end.