нужна помощь с ООП в delphi

[Пепел Феникса]

вы исправили то что я сказал?
если у вас AV вылетают, то не будет ничего рисоватся

[-COREY-]

заработало всё.Спасибо Вам всем!

[-COREY-]

Фигура почему-то не хочет перемещаться.Посмотрите где ошибка,пожалуйста..

{сам ход}
procedure TForm1.HorseMove;
begin
 w_h1:=THorse.Create(1,7,'white_horse.bmp',CoordToCage(1,7));
 w_h1.h_x:=w_h1.h_x+stepX;
 w_h1.h_y:=w_h1.h_y+stepY;
 Buffer.Canvas.Draw(0,0,Fon);
 DeskDraw;
if c >= 25 then
  begin
  Timer1.Enabled:=False;
  w_h1.h_x:=CageToX(Dest_Cage) * Cell_Size;
  w_h1.h_y:=CageToY(Dest_Cage) * Cell_Size;
  w_h1.horse_cage:=Dest_Cage;
  Start_Cage:=-1;
  Dest_Cage:=-1;
  Buffer.Canvas.Draw(0,0,Fon);
  DeskDraw;
  end;
end;
{проверка на возможность хода}
function TForm1.DestCheck(x,y: byte): boolean;
var
Tmp_Cage: byte;
dx, dy: byte;
begin
Result:=False;
Tmp_Cage:=CoordToCage(x,y);
dx:=Abs(x-CageToX(Start_Cage));
dy:=Abs(y-CageToY(Start_Cage));
if (Tmp_Cage <> Start_Cage) then
  if ((dx = 2) and (dy = 1)) or
     ((dx = 1) and (dy = 2)) then
     begin
     if dx = 2 then
       begin
         if (x > CageToX(Start_Cage)) then
           stepX:=2*Step
         else
           stepX:=0-2*Step;
         if y > CageToY(Start_Cage) then
           stepY:=Step
         else
           stepY:=0-Step;
       end
     else
       begin
         if (x > CageToX(Start_Cage)) then
           stepX:=Step
         else
           stepX:=0-Step;
         if y > CageToY(Start_Cage) then
           stepY:=2*Step
         else
           stepY:=0-2*Step;
       end;
     Result:=True;
     end;
end;



procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
w_h1:=THorse.Create(1,7,'white_horse.bmp',CoordToCage(1,7));
if Start_Cage >= 0 then
  begin
  if Dest_Cage < 0 then
    begin
    if DestCheck(cx,cy) then
      begin
      Dest_Cage:=CoordToCage(cx,cy);
      Timer1.Enabled:=True;
      c:=0;
      end
    else
      begin
      Start_Cage:=-1;
      Dest_Cage:=-1;
      end;
    Buffer.Canvas.Draw(0,0,Fon);
    end;
  end
else
  if CoordToCage(cx,cy) = w_h1.horse_cage then Start_Cage:=CoordToCage(cx,cy);
DeskDraw;
end;

все events подключены как надо.Может ещё где ошибка?