Ist die Verwendung von TTask so korrekt?

[t.roller]

Zitat von a.def:

Zitat von t.roller:

Verwenden von TTask aus der Parallel Programming Library

Abschnitt Eine weitere Funktionalität von TTask ist das Verhindern der Sperrung der Benutzeroberfläche, wenn Sie im Hintergrund etwas starten möchten. Im folgenden Beispiel wird gezeigt, wie Sie eine einzelne Aufgabe ausführen und starten

Beispiel:

Delphi-Quellcode:

// uses System.Threading,...
procedure TForm1.ButtonClick(Sender: TObject);
var
  lValue: Integer;
begin
    Label1.Caption := '--';
    CheckBox1.Checked:= TRUE;
    TTask.Run(procedure
      begin
          {Some calculation that takes time}
          Sleep(3000);
          lValue := Random(100);
          TThread.Synchronize(nil,
            procedure
            begin
                  CheckBox1.Checked:= FALSE;
                  Label1.Caption := lValue.ToString;
            end);
      end);
//-------------------------------------------------------------------
    Label2.Caption := '--';
    CheckBox2.Checked:= TRUE;
    TTask.Run(procedure
      begin
          {Some calculation that takes time}
          Sleep(6000);
          lValue := Random(100);
          TThread.Synchronize(nil,
            procedure
            begin
                  CheckBox2.Checked:= FALSE;
                  Label2.Caption := lValue.ToString;
            end);
      end);
//-------------------------------------------------------------------
    Label3.Caption := '--';
    CheckBox3.Checked:= TRUE;
    TTask.Run(procedure
      begin
          {Some calculation that takes time}
          Sleep(9000);
          lValue := Random(100);
          TThread.Synchronize(nil,
            procedure
            begin
                  CheckBox3.Checked:= FALSE;
                  Label3.Caption := lValue.ToString;
            end);
      end);
//-------------------------------------------------------------------
end;