Hola emeritos.
Si deseas almacenar el cambio:
Código Delphi
[-]
uses DateUtils;
...
begin
with IBDataSet1 do
begin
Edit;
FieldByName('CAMPO_TIME').Value:= IncSecond(FieldByName('CAMPO_TIME').Value, -1);
Post;
crono.Caption := FieldByName('CAMPO_TIME').Value;
end;
end;
Si no:
Código Delphi
[-]
uses DateUtils;
...
begin
crono.Caption := TimeToStr(IncSecond(IBDataSet1.FieldByName('CAMPO_TIME').Value, -1));
end;
Saludos
