// Kodbankta bir çok kronometre kodu mevcut fakat bu biraz farklı. Saat süre ile çalışan firmalar için kullanılabilir.
 
//forma bir timer 3 adet label ekleyin.
 
procedure GecenZaman(Saniyenesne,Dakikanesne,Saatnesne:TLabel);
var
Saniye,Dakika,Saat:Integer;
begin
  Saniye:=(StrToInt(Saniyenesne.Caption));
  Dakika:=(StrToInt(Dakikanesne.Caption));
  Saat:=(StrToInt(Saatnesne.Caption));
 
        Inc(Saniye);
 
        if Saniye >= 60 then
        begin
        Saniye:=0;
        inc(Dakika);
        end;
 
        if Dakika >= 60 then
        begin
        Dakika:=0;
        inc(saat);
        end;
 
        if Length(IntToStr(Saniye)) <2 then
        begin
        Saniyenesne.Caption:='0'+IntToStr(Saniye)
        end
        else
        begin
        Saniyenesne.Caption:=IntToStr(Saniye);
        end;
 
        if Length(IntToStr(Dakika)) <2 then
        begin
        Dakikanesne.Caption:='0'+IntToStr(Dakika)
        end
        else
        begin
        Dakikanesne.Caption:=IntToStr(Dakika);
        end;
 
        if Length(IntToStr(Saat)) <2 then
        begin
        Saatnesne.Caption:='0'+IntToStr(Saat)
        end
        else
        begin
        Saatnesne.Caption:=IntToStr(Saat);
        end;
 
end;
 
 
 
//timer nesnesi interval değeri 1000 olarak kalsın.
//timer nesnesinin içine yazınız.
GecenZaman(label1,label2,label3);
 
//label1 label2 label3 label nesnelerinin default isimleridir. Isimlerini değiştirerek kullanabilirsiniz.