PtSetRecord

try アイオン WIKI
with Adodataset do
begin
Close;
commandtext:='select * from '+TableName;
prepared;
open;
Result:=true;
end;
except
on exception do
Result:=false;
end;