Самый быстрый способ прорисовки на компоненте Image

const
  W = 500; // ширина PaintBox
  H = 500; // высота PaintBox

var
  // массив пикселей (можно диначический, но там чуть сложнее)
  Bits: array[0..H-1,0..W-1] of TColor;
  BitsInfo: BITMAPINFO;

// отрисовка массива на устройство DC:
function DrawToDC(DC: HDC; X, Y, Width, Height: Integer): Integer;
begin
  with BitsInfo.bmiHeader do
  begin
    biWidth := Width;
    biHeight := -Height;
  end;
  Result := SetDIBitsToDevice(
    DC,
    X, Y, Width, Height,
    0, 0, 0, Height,
    @Bits, BitsInfo, DIB_RGB_Colors
  );
end;

// рисуем точку
procedure Plot(x,y: Integer; C: TColor);
begin
  if (x>=0) and (y>=0) and (x<W) and (y<H) then begin
    Bits[y,x] := C;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,t: Integer;
begin
  Randomize;
  t:=GetTickCount;
  // очищаем поле для рисования
  FillChar (Bits, W*H*4, 0);
  // рисуем миллион точек!
  for i := 1 to 1000000 do begin
    Plot(Random(W), Random(H), RGB(Random(256),Random(256),Random(256)));
  end;
  DrawToDC(PaintBox1.Canvas.Handle, 0, 0, W, H);
  ShowMessage(IntToStr(GetTickCount-t)+' мс');
end;

initialization

with BitsInfo, bmiHeader do
begin
  biSize := SizeOf (bmiHeader);
  biWidth := 0;
  biHeight := 0;
  biPlanes := 1;
  biBitCount := 32;
  biCompression := BI_RGB;
  biSizeImage := 0;
  biXPelsPerMeter := 0;
  biYPelsPerMeter := 0;
  biClrUsed := 0;
  biClrImportant := 0;
end;