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); 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