TTask parametrisieren

[Schokohase]

Ich möchte einen Task erzeugen und dabei einen Parameter übergeben - kein Problem

Delphi-Quellcode:

function DoSomethingInTask(Argument: Integer): ITask;
begin
  Result := TTask.Run(
    procedure
    var
      I: Integer;
    begin
      for I := 1 to Argument do
      begin
        // do whatever
        TThread.Sleep(10);
      end;
    end);
end;

procedure foo;
var
  t: ITask;
begin
  t := DoSomethingInTask(20);
  ...
end;