Procedure ile Geçen Zaman (Süre) Sayacı.

Kod:
// 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.