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;
...
...