Idade com Anos, Meses e Dias.

Estou usando esta função para poder calcular a idade com anos, meses e dias, preciso da idade bem completa mesmo. Quando informo a data inicial 15/12/2014 e a final 31/03/2016 me retorna a mensagem "Invalid Argument to date encode". Estou usando Delphi e Mysql.

Function diferenca_datas(Dtini, Dtfin :TDate) :string;
var
xAnos,
xMeses,
diferenca :Double;
dias,
anos,
meses :Integer;
begin
If (Dtini = 0) Or (Dtini > Date) Or (Dtini > Dtfin) Then
Begin
MessageDlg('Data inválida !', mtError, [mbOk], 0);
Exit;
End;

diferenca := Dtfin - Dtini;

xAnos := diferenca / 365.25;
anos := Trunc(xAnos);
xMeses := (xAnos - anos) * 12;
meses := Trunc(xMeses);

dias := DaysBetween(EncodeDate(YearOf(Dtini) + anos, MonthOf(Dtini) + meses, DayOf(Dtini)), Dtfin);

If dias = 30 Then
dias := 0;

If meses = 12 Then
Begin
meses := 0;
anos := anos + 1
End;

If anos > 1 Then
Result := IntToStr(anos) + ' anos '
Else
Result := IntToStr(anos) + ' ano ';

If meses > 1 Then
Result := Result + IntToStr(meses) + ' meses '
Else
Result := Result + IntToStr(meses) + ' mês ';

If dias > 1 Then
Result := Result + IntToStr(dias) +' dias '
Else
Result := Result + IntToStr(dias) +' dias ';
End;



procedure Tfrm_cadastro.BitBtn1Click(Sender: TObject);
var Dtini, Dtfin: TDate;
Begin
Dtini := StrToDate(Edit1.Text);
Dtfin := StrToDate(Edit2.Text);
Label_idadecompleta := (diferenca_datas(dtini, dtfin));
end;