Fórum SOMAR ANO,MES,DIA A UMA DATA #468074

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;