DzSqlRecord

try AION WIKI
with Adoquery do
begin
Close;
sql.Clear;
sql.Text:='select '+FieldsName+' from '+TableName;
prepared;
open;
Result:=true;
end;
except
on exception do
Result:=false;
end;