Как мне указать процент выполнения в очень медленном запросе?

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

Есть ли способ указать прогресс в процентах?

procedure TForm13.ActionReadInMemoryExecute(Sender: TObject);
var
  QueryLine: string;
  FullQuery: string;
  Tablename: string;
  i: integer;
begin
  i:= 0;
  TableMeter.DisableControls;
  try
    TableMeter.First;
    FullQuery:= '';
    while not TableMeter.eof do begin
      Tablename:= TableMeter.FieldByName('tabelnaam').AsString;
      QueryLine:= ReplaceStr(ImportQuerySjabloon, cTabelname, Tablename);
      FullQuery:= FullQuery + QueryLine;
      if (TableMeter.RecNo < (TableMeter.RecordCount -1)) then begin
        FullQuery:= FullQuery + ' UNION ALL ';
      end;
      TableMeter.Next;
    end; {while}
    QueryImportMeterreadings.Close;
    QueryImportMeterreadings.SQL.Text:= FullQuery;
    QueryImportMeterreadings.Open;  <<-- takes a long time
  finally
    TableMeter.EnableControls;
  end;
end;

Есть ли способ указать прогресс запроса, или я могу сделать это только в том случае, если я разделю отдельные запросы и устраню UNION s.
На выполнение требуется около 1 минуты, с участием 8 профсоюзов.

Я не вижу ни одного события, которое можно было бы использовать для этой цели:

Или мне следует подделать OnCalcField в поле в запросе, чтобы сделать это (не уверен, что это вообще сработает в принципе).
Или прикрепить последовательность? нет, дает неподдерживаемую операцию для Access DB