[Uniq!]

На форме fSynch только ProgressBar

Код:

program WorkPlace;

uses
  Vcl.Forms,
  uMain in 'uMain.pas' {fMain} ,
  uSynch in 'uSynch.pas' {fSynch};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfSynch, fSynch);
  Application.CreateForm(TfMain, fMain);
  Application.Run;
end.

Нужно оформить загрузку данных из БД, т.е. выполнить несколько ADOTable.Open (это уже обсудили) и ещё несколько "долгосрочных" операций загрузки данных.

Куда весь этот код обработки вписывать?
в OnShow - форма не вырисовывается, но процесс загрузки идёт. Т.е. приложение зависает, потом появляется форма со 100% ProgressBar на секунду и сразу же Главное окно программы.