Как быстро рисовать на TCanvas, разбитый на фрагменты, в несколько потоков

{=====================================================================}
{======= Рисование Polygon пока внутри буферного массива ColorArray =====}
{=====================================================================}
procedure TIsolBox.PolygonToColorArray(Vertex: array of TPoint;
 const BrColor: TColor);
var PXmin, PXmax, PYmin, PYmax: LongInt;
    I, J: LongInt;
    M: Byte;
//======  Встроенная функция -               ==========================
//======  проверка: попадает ли точка в выпуклый многоугольник  =======
   function InPolygon(const XP, YP: LongInt): Boolean;
    var K, PL, PR: Integer;
        Vmult: Int64;
        PrevSign: ShortInt;
        Vplus: Boolean;
   begin
   Result := False;  // Для начала  - точка вне многоугольника
   PrevSign := 0;
// Точка должна быть правее или левее ВСЕХ векторов сторон
      For K := Low(Vertex) to High(Vertex) do
      begin
         If K < High(Vertex) then 
         begin 
         PL := K;  PR := K + 1
         end else
         begin
         PL := High(Vertex); PR := Low(Vertex)
         end;
{ Используем для контроля расположения точки [X,Y]      }
{ относительно сторон полигона векторные произведения... }
      Vmult := (Vertex[PR].X - Vertex[PL].X) * (YP - Vertex[PL].Y) -
               (Vertex[PR].Y - Vertex[PL].Y) * (XP - Vertex[PL].X);
// ...их знаки должны быть одинаковыми для всех граней
         If Vmult <> 0 then
         begin
         Vplus := Vmult > 0;
         If (PrevSign <> 0) and ((PrevSign > 0) <> Vplus) 
           then Exit;
         If Vplus then PrevSign := +1 
                  else PrevSign := -1;
         end;
      end;
   Result := True;
   end;
//.....................................................................
begin
If BrColor = clNone then Exit;
PXmin := MaxLongInt;
PXmax := -MaxLongInt;
PYmin := MaxLongInt;
PYmax := -MaxLongInt;
   For M := Low(Vertex) to High(Vertex) do
   with Vertex[M] do 
   begin
   PXmin := Min(PXmin, X); 
   PXmax := Max(PXmax, X);
   PYmin := Min(PYmin, Y);
   PYmax := Max(PYmax, Y);
   end;
// Запись полигона в массив цветов пикселей ColorArray
For I := PXmin to PXmax do
 for J := PYmin to PYmax do
 if InPolygon(I, J) then ColorArray[I,J] := BrColor;
end;

      TParallel.For(1, 2000, procedure(jj: LongInt)
      type TRGBTripleArray = array[Word] of TRGBTriple;
           pRGBTripleArray = ^TRGBTripleArray;
      var ii: LongInt;  
           MyPixels: pRGBTripleArray;
           PixColor: TColor;
      begin
      MyPixels := BitmapCV.ScanLine[jj];
          For ii := 1 to 3000 do begin
          PixColor := ColorArray[ii,jj];
          MyPixels[ii].rgbtRed := GetRValue(PixColor);
          MyPixels[ii].rgbtGreen := GetGValue(PixColor);
          MyPixels[ii].rgbtBlue := GetBValue(PixColor);
          end;
      end );