[Alegun]

А ведь можно ещё прям из maskedit время брать, текстом, а дальше чистое LMD:

Код:

function changeMinStr(s: string; ds: integer): string;
var
 i, b, c: integer;
 hr, mn: string;
begin
 i:= (StrToInt(s[1]+s[2])*60)+StrToInt(s[4]+s[5])+ds;
 b:= i div 60;
 if b > 23 then b:= b mod 24;
 c:= i mod 60;
 if b < 10 then hr:= '0' + IntToStr(b) else hr:= IntToStr(b);
 if c < 10 then mn:= '0' + IntToStr(c) else mn:= IntToStr(c);
 Result:= hr + ':' + mn;
end;