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;