Delphi 6 にある TLabeledEdit、あれはどうやって実現しているのでしょうか?
似たようなコンポーネントを作りたくていろいろやっているのですが、どうしても
うまくいきません。具体的にはボタンの下に色つきの線を引きたいのです。
TButton を継承して、

type
　TMyButton = class(TButton)
　private
　　Line: TShape;
　public
　　constructor Create(AOwner: TComponent); override;
　　destructor Destroy; override;
　end;

constructor TMyButton.Create(AOwner: TComponent);
begin
　inherited Create(AOwner);
　Line := TShape.Create(self);
　with Line do begin
　　Parent := self.Parent;
　　Pen.Width := 3;
　　Pen.Color := clRed;
　　Left := self.Left;
　　Top := self.Height;
　　Width := self.Width;
　　Height := 3;
　end;
end;

のようにやってみても色つきの線が出ません。

どなたか教えてください。Delphi 6 は Personal しか持っていないので、
ソースを見ようにも……。