если это нужно, чтобы занять чем-то пользователя, пока выполняется один тяжёлый запрос, то никак. можно, конечно, через сторед прок извратиться - но это будет полный изврат.

если нужно, чтобы всё не замирало при Query1.Open, то можно сделать так

Screen.Cursor:=crSQLWait;
try
Application.ProcessMessages;
Query1.Open;
finally
Screen.Cursor:=crDefault;
end;

или какой-нить TAnimate прикрутить с летящими документами.

ещё можно от балды двигать прогресс-бар, а потом, когда запрос откроется, сразу прыгать на 100%

2Snatch:
да ты шо?! неужто? ты хоть знаешь для чего оно там нужно?
это чтобы контролы на форме прорисовались нормально, пока запрос выполняется

а зачем нам его сворачивать? мы ж его только что открыли?

если запрос выполняется полчаса, значит либо бд кривая (например, индексов нету), либо зам запрос криво написан, либо логика у программы кривая. я, как пользователь, программу, в которой запросы по полчаса выполняются, без раздумий выкинул бы на свалку. поэтому, аргумент "бывают запросы на полчаса" не принимается

и какие же базы, по Вашему мнению, считаются большими?
а поговорка хороша.

2Kirillov:
это-то итак понятно. тут уже тема обсуждения другая

и что же он ещё должен делать? если я хочу просмотреть список чего-либо, значит я хочу делать именно это, а не нажимать на кнопочки, вводить текст или чего ещё там (это если select). если запрос это не select, то как-то не понятно, как он может выполняться полчаса и более