蚂蚁线不流动的问题？ ( 积分: 100 )

最近开发用到了蚂蚁线，可是在使用的过程中发现有时候蚂蚁线不流动，百思不得其解，请高人解惑
delphi7.0 windows xp（sp2）

var
a:byte;
procedure c(X,Y:Integer;t:TCanvas);stdcall;
begin
a:=a shl 1;
if a =0 then a:=1;
if (a and 224)>0 then
t.Pixels[X,Y]:=clWhite
else
t.Pixels[X,Y]:=clBlack;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Pen.Width:=3;
timer1.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

// LineDDA(377,90,308,67,@c,LongInt(Canvas)); 这条语句画出的线没有问题
LineDDA(236,44,308,67,@MovingDots,LongInt(form1.Canvas)) //而这条语句画出的线是静止的
end;

另外 linedda画的线是不是不能指定宽度？ （我试过指定 form1.canvas.pen.width的值，可是好像不起作用，请问有没有解决的方法）

难道没有人遇到过这种问题啊？还是我这个问题太弱智？