[NumLock]

попробовал на Gdiplus:

Код:

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  graphics: GpGraphics;
  brush: GpSolidFill;
//  f, c1, c2: Int64;
begin
  PaintBox1.Canvas.Draw(0, 0, Image1.Picture.Graphic);
//  QueryPerformanceFrequency(f);
//  QueryPerformanceCounter(c1);
  GdipCreateFromHDC(PaintBox1.Canvas.Handle, graphics);
  GdipCreateSolidFill($80ffff00, brush);
  GdipFillRectangleI(graphics, brush, 0, 0, 640, 480);
  GdipDeleteBrush(brush);
  GdipDeleteGraphics(graphics);
//  QueryPerformanceCounter(c2);
//  Caption:=IntToStr((c2-c1) div (f div 1000));
end;

как-то очень медленно, 250мс