Hallo,
das Problem liegt in Deinen Schleifen:
Für die x-Schleife musst Du bei MoveTo, ClientHeight und für die y-Schleife ClientWidth nehmen.
Besser aber wäre, da Du eh auf einen Canvas zeichnest, die Eigenschaft ClipRect zu nehmen.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x,y: Integer;
begin
x:=0;
y:=0;
with Form1.Canvas do
begin
while (x<ClipRect.Right) do
begin
MoveTo(x,0);
LineTo(x, ClipRect.Bottom);
Inc(x, 10);
end; // while
while (y<ClipRect.Bottom) do
begin
MoveTo(0,y);
LineTo(ClipRect.Right, y);
Inc(y, 10);
end; // while
end; // with
end;