Timer Problem

[sirius]

Alle Zeilen in denen ich was verändert habe sind auskommentiert, bzw. es ist so ein Pfeil dran, wenn ich etwas eingefügt habe.
Label5 kannst du rausschmeissen.

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;
  Label5.caption:=InttoStr(S1);
  S1:=StrtoInt(Label5.caption);   }

  //hier sollte noch ne Abfrage rein, wenn SZ=0 dann Ende

  dec(SZ); //<-----
  Stunden:=({S1}SZ)/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); //nicht falsch
  label1.Caption:=format('%2d:%2d:%2d',[EH,EM,ES]);  //aber so gefällts mir besser
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;}
  timer1.Enabled:=not timer1.Enabled;
end;

Edit: Naja, ich sollte auch den Teil mitliefern, da habe ich auch eine Zeile eingefügt:

Delphi-Quellcode:

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button3: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
    SZ:integer;     ///<-----
  public
    { Public-Deklarationen }
  end;