Gitternetz auf Canvas der Form wird nicht ganz gezeichnet

[flomei]

Hallo!
So zum üben wollte ich mir mal die Form mit nem Gitternetz vollmalen lassen. Klappt auch fast aber irgendwann hört er einfach auf.
Hier mal der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var
    x,y: Integer;
      begin
        x:=0;
        y:=0;
          while x < Form1.ClientWidth
          do begin
            Form1.Canvas.MoveTo(x,0);
            Form1.Canvas.LineTo(x,Form1.ClientWidth);
            Application.ProcessMessages;
            x := x+10;
          end;
          while y < Form1.ClientHeight
          do begin
            Form1.Canvas.MoveTo(0,y);
            Form1.Canvas.LineTo(Form1.ClientHeight,y);
            Application.ProcessMessages;
            y := y+10;
          end;
      end;

Habe schon ClientWidth und ClientHeight getauscht und auch durch Form1.Height und Width ersetzt aber immer blieb der gleiche Effekt.

Im Anhang nen Screenshot...

Danke im Vorraus!

MfG Florian