Punkte auf Form wie bei Delphi zur Designzeit

[Matze]

Delphi-Quellcode:

procedure TForm4.FormPaint(Sender: TObject);
var
  x, y: integer;
begin
  x := 0;
  y := 0;
  Form4.Canvas.Pixels[x, y] := clBlack;
  while y < Form4.Height do
  begin
    while x < Form4.Width do
    begin
      Application.ProcessMessages;
      Form4.Canvas.Pixels[x, y] := clBlack;
      inc(x, 10);
    end;
    x := 0;  //<== hie das einfügen
    inc(y, 10);
  end;
end;

So müsste es gehen.

Edit: Oje, bin ich langsam...