Also ich danke nochmal Herzlich für die Tipps.
Ich habe es so eingestellt das ich jeweils Eine Minute zum Countdown Hinzufügen oder Abziehen kann.
Delphi-Quellcode:
function ASMinute(TimeStr:String; PM:Integer) : String;
var
Stunden, Minuten : Integer;
begin
Stunden := StrToInt(Copy(TimeStr,0,Pos(':',TimeStr)-1));
Minuten := StrToInt(Copy(TimeStr,Pos(':',TimeStr)+1,TimeStr.Length));
case PM of
0 : if not (Minuten=0) then Minuten := Minuten - 1 else
if not (Stunden=0) then
begin
Stunden := Stunden - 1;
Minuten := 59;
end;
1 : if not (Minuten=59) then Minuten := Minuten + 1 else
begin
Stunden := Stunden + 1;
Minuten := 0;
end;
end;
result := string.Format('%d:%2.2d', [Stunden, Minuten]);
end;