I want to make a constant debugging screen for color-finding. But the thing is, it is extremely slow. Is there any way I could speed this up? (Btw, I JUST learned about canvases... lol)

SCAR Code:
program CanvasTesting;

var
  Buffer,Outline,a,c : integer;
  Cols : TPointArray;

begin
  ColorToleranceSpeed(2);
  DisplayDebugImgWindow(764,502);
  Buffer := BitmapFromString(764,502,'');
  Outline := BitmapFromString(764,502,'');
  repeat
    FastDrawClear(Outline,0);
    SetTransparentColor(Outline,0);
    FindColorsSpiralTolerance(350,250,Cols,15461357,0,0,764,502,7);
    c := Length(Cols);
    for a := 0 to c - 1 do
      FastSetPixel(Outline,Cols[a].x,Cols[a].y,255);
    CopyClientToBitmap(Buffer,0,0,764,502);
    FastDrawTransparent(0,0,Outline,Buffer);
    SafeDrawBitmap(Buffer,GetDebugCanvas,0,0);
    Wait(10);
  until(false)
end.