Delphi Android долгое ожидание процесса

Question

В моем приложении Android с кнопкой я запускаю запрос SQL. Этот запрос выполняется долго (около 1-3 минут), и я хотел бы показать ожидающее сообщение пользователю.

Это ожидающее сообщение выполняется через TRectangle с меткой внутри. Прямоугольник не виден, пока кнопка не нажата:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rct1.Visible := True;// Make message visible .....
  RunSql; // Sql query 
end;

Процедура RunSql выполняет запрос SQL и обновляет пользовательский интерфейс для отображения данных в 12 TEdit компонентах.

Сообщение показывается (прямоугольник виден) ПОСЛЕ RunSql заканчивается. Но мне нужно показать его до вызова Runsql.

Шаг за шагом запустить в IDE:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Rct1.Visible := True;// Now the rectangle must show, but is not visible
  RunSql; // go to this procedure and execute sql 
end;      // Here after 1-3 minutes I have all the components updated with the sql result and show the message.

Как я могу показать сообщение "ожидания" в нужное время?

Окно 7/10 (ide) Android 9 (Samsung S10) Delphi 10.3.3