Timer Problem

[Darksniper]

Hi

Ich bin gerade dabei einen timer zu bauen
http://img35.picoodle.com/img/img35/...em_f881e6f.png

Label5 dient nur zum speichern der sekunden und ist unsichtbar
bei Timer1 steht Enable auf false und Intervall auf 1000
Button3 ist nicht anwählbar
und das hier ist der wichtige Teil des code

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S,SZ:Integer;
begin
H:= 60*60*StrtoInt(Edit1.Text);  
M:= 60*StrtoInt(Edit2.Text);    
S:= StrtoInt(Edit3.Text);       
SZ:=H+M+S;                       
Label5.Caption:=IntToStr(SZ);    
Timer1.Enabled := true;          
Button1.Enabled:=false;          
Button3.Enabled:=true;           
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin                                         
S:=StrtoInt(Label5.caption)-1;  //hier kommt das 
Label5.caption:=InttoStr(S1);   //wo ich mir nicht ganz
S1:=StrtoInt(Label5.caption);   //sicher bin ob das geht
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);
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Button1.Enabled:=true;
Button3.Enabled:=false;
Timer1.Enabled:=false;
Label5.Caption:='00:00:00';
Edit1.Text:='00';
Edit2.Text:='00';
Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if Timer1.Enabled=true then
   Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;
end;

mein Problem ist,dass das Label1 immer 0:0:0 anzeigt