Punkte auf Form wie bei Delphi zur Designzeit

[Pseudemys Nelsoni]

hallo,

ihr wisst ja sicher wie eure Form in Delphi aussieht, also überall sind punkte (raster halt).
Ich habe versucht das in meinem Programm nachzumachen, es wird aber nur die erste Line gepunktet und nicht weiter, kann mir jemand sagen wieso?

Ich habe es so versucht:

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;
    inc(y, 10);
  end;
end;

ihr könnt es ja mal in euer OnPaint ereignis in eurer form einfügen dann seht ihr was ich meine