Sumar dias a una fecha inicial en delphi

[[seoane]]

Si me permites te hago yo la funcion:

Código Delphi [-]
function Suma(Fecha: TDateTime): TDateTime;
begin
  Result:= Fecha + EncodeDate(1980,1,1);
end;

Por cierto si tienes el numero de dias en un string, puede que lo que necesites sea esto:

Código Delphi [-]
function StrToFecha(Str: string): TDateTime;
begin
  Result:= EncodeDate(1980,1,1) + StrToInt(Str);
end;