Problem mit 'Struktur-Prozedur'

[scp]

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);
  col:=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);}
      Canvas.Pixels[row,col] := color[random(3)];
    end;
  end;
end;