Das Programm verstehe ich nicht.
Um nur eine Uhrzeit anzuzeigen, muss man das nicht auf die umständlichste Art tun.
Delphi-Quellcode:
while not Terminated do
begin
aBild.Canvas.TextOut( 100, 100, FormatDateTime('hh:nn:ss.zzz', Now) );
//aktualisiere Daten
Synchronize( Zeichne );
Sleep(20); // <----------------------
end;