[Dellink]

Сообщение от NumLock

TShape.Shape
Type TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle);

тип я обьяви, но это что значит TShape.Shape?

Код:

procedure TForm3.Button2Click(Sender: TObject);
begin
   TShape.Shape := stRectangle;
end;

вот так ошибки....