Quitar un segundo de tiempo a un Timer

[emeritos]

Hola dilferos.

Tengo un campo de tiempo (time) y le quiero o bien quitar o sumar un segundo, para despues verlo en pantalla:

crono.Caption := MQcombate['tiempo'];

¿ Como lo puedo hacer? Para explicarme mejor mas o menos lo que hacen algunas veces en baloncesto cuando aumentan o disminuyen el reloj.

Gracias.

[ecfisa]

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