Aquí tienes la función que yo utilizo:
Código Delphi
[-]
Function Edad(FechaNacimiento : TDate) : Integer;
Var
an, mn, dn : Word;
ahoy, mhoy, dhoy : Word;
Begin
DecodeDate(FechaNacimiento, an, mn, dn);
DecodeDate(Now, ahoy, mhoy, dhoy);
If (mn > mhoy) or((mn = mhoy) and (dn > dhoy)) then
Result:=ahoy - an - 1
else
Result:=ahoy - an;
End;
Esta otra es de Federico Firenze:
Código Delphi
[-]
function DelphiComAr(AFechaNacimiento: TDateTime) : Integer;
begin
Result := Trunc((Date - AFechaNacimiento) / 365.25);
end;
Un Saludo.