[ecfisa]

Hola de nuevo JXJ.

No presté atención a la última parte de tu texto:

o sumarle / restarle horas . minutos. seg. dias. meses años??

Con esta función creo que solucionas todo:

Código Delphi [-]
procedure SumaRestaDateTime(var ADateTime: TDateTime; dd, mm, aa, h, m, s: Integer);
begin
  ADateTime:= IncYear(AdateTime, aa);
  AdateTime:= IncMonth(AdateTime, mm);
  AdateTime:= IncDay(AdateTime, dd);
  AdateTime:= IncHour(AdateTime, h);
  AdateTime:= IncMinute(ADateTime, m);
  AdateTime:= IncSecond(AdateTime, s);
end;

Ejemplos de uso:

Código Delphi [-]
var
  MDateTime: TDateTime;
begin
   SumaRestaDateTime(MDateTime, -1, -1, -1, -1, -1, -1); // Resta: 1 día, 1 mes, 1 año, 1 hr, 1 min, 1seg
   SumaRestaDateTime(MDateTime, 1, 1, 1, 1, 1, 1);       // Suma:  1 día, 1 mes, 1 año, 1 hr, 1 min, 1seg
   SumaRestaDateTime(MDateTime, -1, 0, 0, 0, -1, 5);     // Resta: 1dia y 1 min. Suma 5 seg
end;

Saludos.