procedure TMainForm.Rectangle1Click(Sender: TObject);

var

  url: string;

begin

  CCLoadingIndicator1.ShowLoadingIndicator;

  Scheduler.Run(

    procedure

    var

      bsf: TkbmMWBinaryStreamFormat;

      q: TkbmMWClientQuery;

    begin

      bsf := TkbmMWBinaryStreamFormat.Create(nil);

      q := TkbmMWClientQuery.Create(nil);

      try

       //执行查询任务

      finally

        bsf.DisposeOf;

        q.DisposeOf;

      end;

    end).SynchronizedAfterRun(

    procedure

    begin

      //同步界面操作

      CCLoadingIndicator1.HideLoadingIndicator;

    end).Activate;

end;