Problem mit 'Struktur-Prozedur'

[julianjetter]

Hallo!
Ich habe ein kleines Problem beim Benutzen der folgenden Prozedur.
Sie soll theoretisch das Formular strukturieren. Das klappt auch ganz gut, nur wird es in horionzontaler Richtung bis zur Formularmitte ausgeführt, ab dann gibt es nur Streifen nach rechts. Am besten selbst mal ausprobieren
Form1.Width in Form1.Width*2 zu Ändern liefert zwar das korrekte Resultat, aber das muss sich doch auch anders beheben lassen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var color: array[0..2] of dword;
    row,col: integer;
begin
  color[0] := $00CCCCCC;
  color[1] := $00999999;
  color[2] := $00666666;
  Randomize;
  Canvas.MoveTo(0,0);
  for col:=0 to Form1.Height do begin
    for row:=0 to Form1.Width do begin
      Canvas.Pen.Color := color[random(2)];
      Canvas.LineTo(row,col);
    end;
  end;
end;

MfG Julian Jetter