Создание своего класса в Delphi 7 << На главную или назад  

Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:
[code]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;
end;
Public
Function GetHodFigure:TPanel;]
Procedure SetHodFigure(a:TPAnel);
end;

Private
constructor Fcreate (Coord:Tpanel);
end;[/code]
подскажите почему у меня ошибка там где красное?
и что я вообще сделал не так или неправильно?
спасибо