procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.Synchronize(TThread.CurrentThread,
    procedure
    begin
      while ProgressBar1.Position < ProgressBar1.Max do
      begin
        ProgressBar1.Position := ProgressBar1.Position + 1;

        SleepEx(10, true);
      end;
    end);
end;

    dm.qSchet.DisableControls;
    WaitShow;
    try
      EnterWorkerThread;
      try
        dm.qSchet.Open;
        CheckAbort;
      finally
        LeaveWorkerThread;
      end;
    except
      on E:Exception do Error:= E.Message;
    end;
    dm.qSchet.EnableControls;
    WaitHide;
    if Error<>'' then ShowMessage(Error);

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы