关于制图的问题？有劳各位帮忙看看？

看一个这个程序：
proceudre tform1.timer1timer(sender;tobject);
  var
xx:integer;
yy:integer;
   begin
xx:=xx+5;
yy:=random(image1.height);
image1.canvas.pen.color:=clblack;
imgae1.canvas.lineto(xx,yy);
   end;
procedure tform1.button1click(sender:tobject);
   begin
timer1.enabled:=not timer1.enabled;
   end;
程序运行后，在image1上面不能够绘制图形，请问是什么原因？