Fórum Calcular em delphi.. #442512

tenho a seguinte aplicação em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
DataIni: TDateTime;
DataFim: TDateTime;
Ano: integer;
Mes: integer;
Dia: integer;
begin
DataIni := StrToDate(MaskEdit1.Text);
DataFim := StrToDate(MaskEdit2.Text);
if DataIni > DataFim then
ShowMessage('A data inicial é maior que a data final')
else
begin
Ano := YearsBetween(DataIni, DataFim);
DataIni := IncYear(DataIni, Ano);
Mes := MonthsBetween(DataIni, DataFim);
DataIni := IncMonth(DataIni, Mes);
Dia := DaysBetween(DataIni, DataFim);
ShowMessage('Anos: ' + IntToStr(Ano) + sLineBreak +
'Meses: ' + IntToStr(Mes) + sLineBreak +
'Dias: ' + IntToStr(Dia));
end;
end;


só que quando eu coloco as datas que começam com 01/01/2009
01/01/2011 (a maior diminuindo da menor), o resultado ao invés sair 02 anos 00 mes e 00 dia, está saindo 1 ano 11 meses e 31 dias.

alguem pode dar uma dica de como consertar isso?