Mira este ejemplo que he preparado con unos datos que tengo por aquí y que funciona, a ver si se aproxima a lo que quieres.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
F:String;
begin
F:=FormatDateTime('mm/dd/yyyy',Date);
Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Nombre, Apellidos,comienzo,Cast(('''+f+'''- comienzo)/365 as Integer) as edad');
Query1.Sql.Add('from alumnos');
Query1.Open;
end;
Un Saludo.