Stoppuhr in StatusBar

[iron]

Hallo Ihr Profis,

Hab da mal ein kleines Problem für Euch, für mich ein großes.
Ich möchte gerne ne Stoppuhr in ne StatusBar einbauen.

Hab es bisher so gemacht:

Delphi-Quellcode:

if FTP.Connected then
 begin
   Label4.Caption := inttostr(strtoint(Label4.Caption) + 1);
 end;

 if(strtoint(Label4.Caption) = 60) then
  begin
   Label3.Caption := inttostr(strtoint(Label3.Caption) + 1);
   Label4.Caption := inttostr(0);
  end;

 if(strtoint(Label3.Caption) = 60) then
  begin
   Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);
   Label3.Caption := inttostr(0);
  end;

Das geht auch soweit sogut
nur sieht es mir nicht gut genug aus, und ich möchte dieses gerne in ne Statusbar haben, wo es dann z.B.
Serververbindungszeit: 00:00:00 angezeigt wird.

hab auch schon was von der GetTickCount Variante gehört und gelesen, aber irgendwie komm ich nicht weiter.
Wär schön wenn mir einer weiterhelfen könnte mit ner Lösung oder was Ihr so auf Lager habt

[EDatabaseError]

Such mal in der CodeLibrary da gibt es was