delphi - OTL を使用してネストされたループを並列化できますか?

Question

OTL を使用してこのループを並列化できるかどうか疑問に思っていました。

次のコードがあります。

for i := 1 to XRes do
 begin
   for j := 1 to XRes do
     begin
       GridMat.Elem[i,j] := StrToFloat(ListOfValues[(i-1)+((j-1)*Xres)]);
     end;
   Invalidate;
 end;

GridMat (SDL_matrix.TMatrix から) をパラメーターとしてすべての並列 ForEach に渡し、それに値を追加することは可能ですか?