1。描点：
self.Canvas.Pixels[x,y] :=clRed;//轨迹为红色
2。设置点数组：
arrPoint :array of TPoint;
i :integer; //这两个为全局变量
procedure TForm1.FormCreate(Sender: TObject);
begin
i :=0;
SetLength(arrPoint,100); //能装下100个点的坐标
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if i <100 then
begin
arrPoint :=Point(x,y);
i :=i+1;
end
else
self.Canvas.Polyline(arrPoint); // 满100个点就画出轨迹
end;
>>代码供参考，待改进<<
