[JunkieBeat]

NumLock хорошо,опробую,спасибо.

При нажатие на кнопку пытаюсь удалить её,и её родителя, но вылетает EAbstrackError вот полный код компонента

Код:

unit MyTabSheet;

interface

uses
  SysUtils, Classes, Controls, ComCtrls,StdCtrls;
  var
    b:TButton;
type
  TMyTabSheet = class(TTabSheet)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure OnClick(Sender:TObject);
  public
    { Public declarations }
  published
    { Published declarations }
    constructor Create(AOwner:TComponent);override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComp', [TMyTabSheet]);
end;

{ TMyTabSheet }

constructor TMyTabSheet.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);;
  b:=TButton.Create(self);
    b.parent:=self;
    b.Height:=15;
    b.Width:=15;
    b.Caption:='x';
    b.Left:=10;
    b.top:=5;
    b.OnClick:=OnClick;
end;

procedure TMyTabSheet.OnClick(Sender: TObject);
begin
  b.Caption:='qwe';
 // b.Parent.Free;
  b.Free;
end;

end. 

В чем проблема? И заодно спрошу куда прописать код что бы он срабатывал не при выставление объекта,а при запуске формы,что то типо OnActive компонента)