Counter zählt nicht

[sakura]

1. Du erhöchst die Zeit, sofern diese größer 0 ist
2. Du ziehst immer wieder den Startwert aus der Combobox.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var Zeit:Integer;
begin
  [color=#ff0000]Zeit:=StrToInt(ComboBox1.text);
  Zeit:=Zeit*60;[/color]
  dec(Zeit);
  case Zeit of
      0 : ExitWindowsEx(EWX_SHUTDOWN,0);
end;
   Label4.Caption := Format('%0.2d:%0.2d:%0.2d',[Zeit div 3600,Zeit div 60,Zeit mod 60]);
end;

......