1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

    uses OtlParallel;
    Label1.Caption :='waiting...';
    Async(
        procedure
        var
          aa: TClientRuleClient;
        begin
          aa := TClientRuleClient.Create(SQLConnection1.DBXConnection);
          ClientDataSet2.Data := aa.GetAll;
          FreeAndNil(aa);
        end)
    .Await(
        procedure
        begin
           ClientDataSet2.Open;
           Label1.Caption :='end'
        end
    );