哪错了
var
str: string;

str:='select * from A';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('exec (str)');
open;
end;

[解决办法]
sql.Add(str);