// Forma bir timer, ,iki buton ve 3 tanede label ekleyin



var

zaman, zaman1, zaman2 : integer ;

durdur : boolean = false ;



procedure TMainForm.Button3Click(Sender: TObject);

begin

if durdur = false then

begin

Button3.Caption := 'Durdur' ;

timer1.Enabled := true ;

durdur := true ;

Button4.Enabled := false ;

end else

begin

Button3.Caption := 'Devam et' ;

Button4.Enabled := True ;

timer1.Enabled := true ;

durdur := false ;

end ;

end;



procedure TMainForm.Timer1Timer(Sender: TObject);

begin

if durdur then

begin

inc(zaman) ;

Label7.Caption := SifirEkle(IntToStr(zaman)) ;

if zaman = 100 then

begin

Label7.Caption := '00' ;

zaman := 00 ;

inc(zaman1) ;

Label8.Caption := SifirEkle(IntToStr(zaman1)) ;

if zaman1 = 60 then

begin

Label8.Caption := '00' ;

zaman1 := 00 ;

inc(zaman2) ;
Label9.Caption := SifirEkle(IntToStr(zaman2)) ;

if zaman2 = 60 then

begin

  Label7.Caption := '00' ;

; Label8.Caption := '00' ;

Label9.Caption := '00' ;

  zaman2 := 00 ;

end ;

end ;

end ;

end ;

end;



Function TMainForm.SifirEkle(Sayi : String) : String;

var

a:Integer;

begin

//" 1" yerine "01" olmasını sağlıyor.

result := sayi;

for a := 1 downto Length(Sayi) Do Result :='0'+Result;

end;



procedure TMainForm.Button4Click(Sender: TObject);

begin

Button3.Caption := 'Başla' ;

label7.Caption := '00';

label8.Caption := '00';

label9.Caption := '00';

zaman := 00 ;

zaman1 := 00 ;

zaman2 := 00 ;

end;