Saludos
No conozco funcion que haga esto, pero se me ocurre esto:
Código Delphi
[-]var
Inicio,SFecha:TDate;
Cantidad:integer;
begin
inicio:=Now-DayOfTheYear(now);
SFecha:=inicio+StrToInt(Edit1.Text); vdate.DateTime:=SFecha;
end;
Manipulalo a tu caso
Suerte