canvase does not drawing

我在写程序时遇到这样一个错误,没搞清这是一个什么错.
Procedure TRece.DrawECG;
var
  XFactor,  II,HTickCount: Integer;Begin
  A := Tmypaint.Canvas;
  DrawBackGround;
  HTickCount :=100;
  A.Pen.Width := 1;
  A.Pen.Color := ClRed;
  XFactor := Tmypaint.ClientWidth div HTickCount;
  A.Lock;
  A.Pen.Color := ClYellow;
  A.MoveTo(200,70-(round(FRESP[200]/2)));
  for  II := 199 downto 200 - HTickCount do
     A.LineTo(XFactor*(HTickCount-(200-II)),70-(round(FRESP[II]/2)));
   A.UnLock;   
End;
改成上述后不报错了.运行程序后显示一段波形就自动退出了.但是问题实际上没有解决.