Компонент работа с унаследованным свойством

[HellMercenariess]

Доброго дня!

Создал компонент на базе TPanel, мне надо добавить возможность скрывать надпись(только надпись не всю панель), попробовал работать с этим свойством и теперь при любой попытке установить Caption появляется ошибка Stack Overflow.

uses
  SysUtils, Classes, Controls, ExtCtrls,Graphics;

type
  TKontainer = class(TPanel)
  private
     fcapt:string;
    fcontein:string;
    fhidecapt:boolean;
       MyFont:TFont;
  protected


       procedure SetCapt(capt:String);
  public

 constructor   Create(AOwner: TComponent); override;

    { Public declarations }
  published
property    HideCapt:boolean Read fhidecapt Write  fhidecapt;
Property    Contein:String Read fcontein write fcontein;
property    Caption :String Read fcapt write  fcapt;
{
    Published declarations }
  end;

procedure Register;

[Stilet]

А полностью код где?

[HellMercenariess]

Я привел весь код где есть нововведения, я правда пробовал вот так ,

property    Caption :String Read fcapt write SetCapt;

но когда начались проблемы с переполнением чего-то там, то я переписал все так как не должно проблем возникать:

  property    Caption :String Read fcapt write  fcapt;

.dcu-файл компонента убил, чтобы изменения наверняка вступили в силу.

Конструктор не изменен, единственная процедура незадействована.

[Stilet]

я правда пробовал вот так ,

Пф... Ну и зачем нас дурачить? Пробовал так - спросил по другому...
Учти: Если в вызове процедуры-сетера есть обращение к ее свойству то будет тебе зацикливание. Именно поэтому внутри геттеров и сеттеров рекомендуют использование переменок, которые Делфи именует F<имя свойства>, которая по факту и есть ядро свойства, и при обращении к конкретно ей сеттер-геттер уже не вызывается.