[ecfisa]

Hola.

Podrías usar IncDay e IncMonth de la unit DateUtils.

Código Delphi [-]
uses DateUtils;
...
var
  dt: Date;
begin
  dt:= IncMonth(dt,4);
  dt:= IncDay(dt,15);
  ...
end;

Saludos.