Menos um segundo

[Celamar 0]

Como que eu faço para diminuir um segundo de uma string?Exemplo:var sHora : string;begin sHora := '14:14:14'; ....... Result := '14:14:13'end;

[Mach 5 0]

Tente assim:

varsHora : string;begin   sHora := '14:14:14';   ....   Result := TimeToStr(StrToTime(shora)-StrToTime('00:00:01'));end;