form1.Canvas.Pen.Width:=5;
form1.Canvas.MoveTo(0,400);
form1.Canvas.LineTo(600,400);
 上面的代码在tform的oncreate事件上无法画出一条线,可是放在onclick事件就可以了,
请问如何解决?