Obtendo uma data e acrescentando n meses

Function SomaMes (dData : TDateTime; xMeses : Integer; lCorrido : boolean) : TDateTime;
var
Ano, Mes, Dia : word;
DataAux : TDateTime;
begin
DecodeDate(dData, Ano, Mes, Dia);
Mes := Mes + xMeses;
Ano := Ano + (Mes DIV 12);
Mes := Mes mod 12;
DataAux := MenorDataValida (Ano, Mes, Dia);
if not lCorrido Then
DataAux := DataAux - 1;
SomaMes := DataAux;
end;