Timer Problem

[Klaus01]

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject); 
var sekunden,minuten,Stunden :Real; 
    S1,EM,ES,EH,H,M,S: Integer; 
begin 
  S:=StrtoInt(Label5.caption)-1; 
  Label5.caption:=InttoStr(S); 
  S1:=StrtoInt(Label5.caption); 
  Stunden:=(S1)/60/60; 
  minuten:=(stunden-Trunc(stunden))*60; 
  sekunden:=(minuten-Trunc(minuten))*60; 
  EH:=trunc(Stunden); 
  EM:=Trunc(MInuten); 
  ES:=Trunc(Sekunden); 
  Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES); 
  Label1.repaint;
end;

Ein Label1.repaint hilft auch nicht?

Grüße
Klaus