同时创建二个组建？

Question

我想做一个组建，使用时组建在窗体上放是创建一个edit 和button控件，但我做的是在edit控件里面创建的，我想做的是一起创建不知可以否？unit Edit1;
interface
uses
  SysUtils, Classes, Controls, StdCtrls,dialogs,forms;
type
  Tmyclss = class(TEdit)
  private
   procedure myOnClick;
  public
  constructor Create(AOwner: TComponent); override;
  end;
procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [Tmyclss]);
end;constructor Tmyclss.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  myOnClick;
end;procedure Tmyclss.myOnClick;
var
tbtn:tbutton;
begin
   tbtn:=tbutton.Create(nil);
   tbtn.Left:=1;
   tbtn.Top:=1;
   tbtn.Parent:=self;
   tbtn.Visible:=true;
end;
end.

Answer 1

一般都是声明在
private下
如:
Fbtn:TButton;构造时创建Fbtn

Answer 2

我在private下声明构造时创建了，不过结果是一样的都在edit控件里面生成button控件，我想要的是button控件在edit控件旁创建。大虾们帮忙阿。。！

Answer 3

tbtn:=tbutton.Create(nil);
   tbtn.Left:=1;
   tbtn.Top:=1;
   tbtn.Parent:=self;
   tbtn.Visible:=true;
把这写到Create里面,Parent指向AOwner

Answer 4

parent怎样指向AOwner
下面怎么写编译通不过？tbtn:=tbutton.Create(nil); 
  tbtn.Left:=1; 
  tbtn.Top:=1; 
  tbtn.Parent:=AOwner; 
  tbtn.Visible:=true;