[electric]

Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:

Код:

TFigure=Class(TObject)
  Private
        Color:Boolean;
        TypeFigure:String;
        ImgFigure:TImage;
  Protected
        DestroyFigure:Boolean;
        OcheredHodaFigure:Boolean;
  Private
  Function GetCoordFigure:TPanel;
  Procedure SetCoordFigure(const Value:Tpanel);
  public
         Property CoordFigure:TPanel
                             read GetCoordFigure
                             write SetCoordFigure;
         
  Public
  Function GetHodFigure:TPanel;
  Procedure SetHodFigure(a:TPAnel);
           

  Private
  constructor Fcreate (Coord:Tpanel);
  end;

подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
прошу помочь в разработке.
спасибо!