我的方法如下，仅供参考：

在TQuery控件的BeforeOpen事件中写显示“正在执行查询....”的代码，在AfterOpen事件中写显示“执行完成”的代码，例如：
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := '执行完成';
end;

procedure TForm1.Query1BeforeOpen(DataSet: TDataSet);
begin
  StatusBar1.SimpleText := '正在执行查询...';
end;