How to work with tasks correctly?

Question

Delphi

Tell me how to correctly transfer parameters to the task?

Function Test(Const Xn, Wn: Array of Real): Real; 
Var
  Sum: Real; // взвешенная сумма.
  i: Integer; // счетчик.
  tasks: array of itask;
begin
  Sum := 0;
  SetLength(tasks, High(Xn));
  For i := 0 To High(Xn) Do
  begin
    tasks[i] := TTask.Create(
      procedure()
      begin
        Sum := Sum + Xn[i] * Wn[i]; // подсчет взвешенной суммы.
      end);
    for I := 0 to High(tasks) do
      tasks[i].Start;
      TTask.WaitForAll(tasks);
  end;
end;

Now it swears at Xn[i] * Wn[i], as I understand it, because you can’t access arrays from a stream, how to do it right?