Somar ANO,MES,DIA a uma data

[cbpaulosergio 0]

tenho essa função abaixo para somar ano,mes,dia à uma data, porém quando o Mes a ser somado é março, sai uma diferença de 03 dias a mais na data final, alguem pode me dar uma força?.

begin
TotDiasF := 30 * 360 -
DiaT -
MesT * 30 -
AnoT * 360;
AnoF := TotDiasF div 360;
TotDiasF := TotDiasF - AnoF * 360;
MesF := TotDiasF div 30;
DiaF := TotDiasF - MesF * 30;

Edit3.Text := IntToStr(AnoF) + ' Ano(s), '+ IntToStr(MesF) + ' Mês(s), ' + IntToStr(DiaF) + ' Dia(s)';

Edit4.Text := DateToStr( IncDay( IncMonth( IncYear(Date, AnoF), MesF ), DiaF) ) ;
end;
end;

[Roberto Fagundes 40]

Isso acontece porque em Fevereiro não existe 30 dias...

O que você quer fazer ? Pode ser que exista uma forma mais fácil...

[cbpaulosergio 0]

Como para implementar fevereiro = 30 dias?