PtSetRecord

with Adodataset do //AION ネザカン RMT
begin //AION(アイオン) 溜まり場
commandtext:='select * from '+TableName; //アイオン(AION)
prepared;
open;
Result:=true;
end;
except
on exception do
Result:=false;
end;