Jak.. Komunikat "proszę czekać"

Procedura pobiera dane z MySQL przetwarza i wrzuca do listview.
To trwa jakiś czas.

   MainForm.Query.CommandText :=Format('SELECT * FROM `%s` AS wynik WHERE data = "%s"', [Tabela, data]);
      MainForm.Query.Open;
      
      for J := 1 to MainForm.Query.RecordCount do
        begin
          ListItem := ListViewAktualne.Items.Add;
          ListItem.Caption := IntToStr(J);
          ListItem.SubItems.Add((MainForm.Query.FieldValues['czas']));
          ListItem.SubItems.Add((MainForm.Query.FieldValues['waga']));
          ListItem.SubItems.Add((MainForm.Query.FieldValues['program']));
          ListItem.SubItems.Add((MainForm.Query.FieldValues['nr_klienta']));
          ListItem.SubItems.Add((MainForm.Query.FieldValues['opis_klienta']));
          IloscWsadow:= IloscWsadow + 1;
          MainForm.Query.Next;
        end;
    MainForm.Query.Close;

Co zrobić by w tym czasie pojawiał się komunikat np w wyskakującym okienku lub w Label-u "proszę czekać"

Próbowałem na początku procedury umieścić np : Edit1.Text := 'proszę czekać';
ale Edit się zmienia dopiero po pobraniu danych...

Proszę o pomoc

Application.processMessages()

Edit1.Text := 'proszę czekać'; 
Edit1.Refresh; // dodana linia