[[Caral]]

Hola
No se si esto te servira, es de truco mania:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

  function Edad(FechaNacimiento:string):integer;
  var
     iTemp,iTemp2,Nada:word;
     Fecha:TDate;
  begin
    Fecha:=StrToDate(Edit1.text); // aqui se inserta la fecha en formato 07/09/1969
    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;

Creo que la diferencia seria que en vez de buscar la fecha en el edit, se busque en la tabla.
Saludos