1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
TTask.Run(
    procedure
    var
      aa: TClientRuleClient;
    begin
      aa := TClientRuleClient.Create(SQLConnection1.DBXConnection);
      ClientDataSet1.Data := aa.GetAll;
      ClientDataSet1.Open;
      FreeAndNil(aa);
    end
);