Создание компонентов в Delphi

[iiunbreakableii]

Здравствуйте, друзья!
Мне понадобилось создать гибрид двух компонентов. Я раньше никогда не создавал компоненты, поэтому не до конца понимаю как же все-таки их сделать. Вот что я написал:

unit ComplexPager;

interface

uses
  SysUtils, Classes, Controls, AdvOfficePager, AdvMemo;

type
  TComplexPager = class(TAdvOfficePager)
  private
  FMemo: TAdvMemo;
  procedure SetMemo(const Value: TAdvMemo);
  protected
  public
    function AddAdvPage(PageCaption: TCaption): integer; override;
  published
    property Memo: TAdvMemo read FMemo write SetMemo;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Complex', [TComplexPager]);
end;


function TComplexPager.AddAdvPage(PageCaption: TCaption): integer;
var
  aPage: TAdvOfficePage;
  aMemo: TadvMemo;
begin
  aPage := TAdvOfficePage.Create(Self);
  aMemo := TAdvMemo.Create(self);
  aMemo.Parent := aPage;
  aPage.FMemo := aMemo;

  aPage.Caption := PageCaption;
  Result := AddAdvPage(aPage);
end;

procedure TComplexPager.SetMemo(const Value: TadvMemo);
begin
  if (FMemo <> Value) then
  begin
    FMemo := Value;
    Invalidate;
  end;
end;

end.

если я все правильно написал, то по задумке у меня к компоненту TAdvOfficePager должно добавиться свойство Мемо. также мне необходимо, чтобы при создании новой вкладки вместе с ней создавалось и поле Мемо, поэтому я "попытался" переопределить процедуру создания новой вкладки. Так вот, (если все правильно, если нет - исправьте пожалуйста) что делать дальше, чтобы получился настоящий компонент, который будет размещен на палитре компонентов?
Всем заранее спасибо за помощь чайнику в создании его первого компонента : )

(если это важно, я пишу на Delphi 2010)

[mihali4]

http://www.programmersforum.ru/showp...0&postcount=36

[iiunbreakableii]

спасибо, все получилось

[apromix]

А выложите ваш компонент в этой теме.