Form2.canvas.draw klappt nicht!

[Lefko]

Hallo Freunde ,
wieso klappt das nicht!?
Die Form bleibt immer weiss!!
Jemand ne erklärung?

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var z1, z2 : byte;
begin
//Rand zeichnen
for z1 := 0 to 10 do
 for z2 := 0 to 10 do
  Form2.Canvas.draw(z1*10, z2*10, Form2.Image1.picture.bitmap);
end;

MfG Lefko.