Schön in Klassen verpakt. aber warum erzeugst du das Offscreen Bitmap im Paint Ereignis jedes mal neu:
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var bit: TBitmap;
p: PRGBQuad;
i,j: Integer;
begin
if (Field.Width = 0) or (Field.Height = 0) then
begin
PaintBox1.Canvas.Rectangle(Rect(0,0,PaintBox1.Width,PaintBox1.Height));
exit;
end;
bit := TBitmap.Create;