Código Delphi [-]query.close; query.selectsql.text:='select ...'; query.open;
query.close; query.selectsql.text:='select ...'; query.open;