Somar ANO,MES,DIA a uma data

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;