Delphi - Saber la edad de una persona

Necesito saber la edad de una persona y no consigo sacarlo he visto un par de ideas en el foro pero no tienen en cuenta ni años bisiestos ni nada alguien sabe como puedo hacerlo. Muchas gracias de antemano

Mira este codigo espero te sirva...
//aqui comienza
procedure TForm1.Button1Click(Sender: TObject);

function Edad(FechaNacimiento:string):integer;
var
iTemp,iTemp2,Nada:word;
Fecha:TDate;
begin
Fecha:=StrToDate(FechaNacimiento);
DecodeDate(Date,itemp,Nada,Nada);
DecodeDate(Fecha,itemp2,Nada,Nada);
if FormatDateTime('mmdd',Date) <
FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1
else Result:=iTemp-iTemp2;
end;

begin
Label1.Caption:=intToStr(Edad('07/09/1969'));
end;
//aqui termina en onclick del boton

Muchas gracias a los tres con la primera función me arregle es que todabia tengo el delphi 5.

Si tenes Delphi 6 o superior:

uses DateUtils:
...
var Edad: Integer;
...
Edad:= YearsBetween (FechaNacimiento, Now);
...

Otra forma:
...
Label1.Caption:= FormatDateTime ('yy',Now - FechaNacimiento);
...

Lo mejor es que se lo preguntes a la persona directamente, aunque la respuesta puede no ser muy exacta, sobre todo si la persona es entrada en años y del sexo femenino.

Ahora sin bromas. Si solo quieres saber los años utiliza esta función:

function YearsBetween(const ANow, AThen: TDateTime): Integer;

Unit DateUtils.

Suerte. Virum.