ADOQuery 컴포넌트를 사용하요 프로그램 중인데..
데이터의 양이 조금 많습니다.
그래서 데이터를 가져오는 동안 ProgressBar로 데이터 가져오는 진행 상황을 표현하고 싶은데...
내공이 부족하여 구현에 어려움을 겪고 있습니다.
데이터를 DevExpress의 ExpressMasterView에 표현할려구 하는데..
조언 부탁 드립니다.

버튼 클릭했을 경우의 일부 소스 입니다.

  Var
  i : Integer;
  MasterViewLevel : TdxMasterViewLevel;
begin

  ADOConnection1.Conected := False;
  ADOConnection1.Connected := True;

  ADOQuery1.Active := False;
  ADOQuery1.SQL.Add('select * from Agent');
  ADOQuery1.Active := True;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := ADOQuery1.RecordCount;

  dxMasterView1.Levels.Clear;
  MasterViewLevel := dxMasterView1.Levels.Add;
  MasterViewLevel.DataSource := DataSource1;
  MasterViewLevel.ID := 'Agent_ID';

  for i := 0 to ADOQuery1.RecordCount - 1 do
    begin
      MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'YMD';
      MasterViewLevel.CreateColum(TdxMasterViewColumn).FieldName := 'Agent_Name';
  ..
  ..
  ..
      ProgressBar1.Position := i;
      ADOQuery1.Next;
    end;

end;


위와 같이 구현 하니깐 안되더군요.. ㅡ.ㅡ;;
아무쪼록 많은 조언 부탁 드립니다.