Здравствуйте!
мне нужно создать класс фигура для шахматной доски
шахматная доска готова
состоит из 64ёх панелек))
сейчас класс выглядит вот так:
[CODE=pas]
TFigure=Class(TObject)
 [B]Private[/B]
       Color:Boolean;
       TypeFigure:String;
       ImgFigure:TImage;
 [B]Protected[/B]
       DestroyFigure:Boolean;
       OcheredHodaFigure:Boolean;
 [B]Private[/B]
 [COLOR=red][B]Function[/B] GetCoordFigure:TPanel;[/COLOR]
 [B]Procedure[/B] SetCoordFigure(const Value:Tpanel);
 [B]public[/B]
        [B]Property[/B] CoordFigure:TPanel
                            read GetCoordFigure
                            write SetCoordFigure;
       
 [B]Public[/B]
 Function GetHodFigure:TPanel;
 [B]Procedure[/B] SetHodFigure(a:TPAnel);
         

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

> что я вообще сделал не так или неправильно?

тэги расставил неправильно

Что за ошибка?

> [0] Greg   (13.11.07 23:34)

Копипастил с gamedev.ru?

Почему private много раз? Вроде хватило бы одного. Потому и красное наверно.

savyhinst, неограничено

> [0] Greg   (13.11.07 23:34)

Это в отдельном юните? Может в Uses не хватает ExtCtrls? TPanel как раз там описан.

> шахматная доска готова
> состоит из 64ёх панелек))

О боже :)
Начитался советов? из
http://pda.delphimaster.net/?n=3&id=1194870352

Убогий TListBox (TDrawGrid, ..) замени парой десятков кнопок, Edit'ов.
:)