[jachguate]

Lo que te dice delphi.com.ar sera un buen aproximado, pero la edad exacta la obtenes con:

Function Edad(FechaNacimiento : TDateTime) : Integer;

Var
  an, mn, dn : Word;
  ahoy, mhoy, dhoy : Word;

Begin
  DecodeDate(FechaNacimiento, an, mn, dn);
  DecodeDate(Now, ahoy, mnoy, dhoy);
  if (mhoy * 100 + dhoy) > (mn * 100 + dn)
    Then Result := an - dn
  else
     Result := an - dn + 1; 
End;

hasta luego