запрос на сортировку

ишу запрос на сортировку. Например, такой: selest* from Baleti order by key_baleti;
Текст запроса формирую и вывожу в ListBox, затем с него посылаю на исполнение:

[codebox]WITH DataModule2.IBQuery13 do begin
DataModule2.IBQuery13.SQL.Clear;
DataModule2.IBQuery13.SQL := ListBox1.Items;
DataModule2.IBQuery13.ExecSQL;
DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.Open;
[/codebox]

Выдает такую ошибку: use open for a select statement, при этом выделяется строчка
DataModule2.IBQuery1.Close;

Помогите, пожалуйста!