如何动态生成组件？

Question

我想学习在程序运行后再动态生成按钮，label之类的组件，自己摸索了好久也没结果，例子如下：
动态创建一个LABEL：type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    labeltest : Tlabel;procedure TForm1.Button1Click(Sender: TObject);
begin
labeltest:=Tlabel.Create(application);
labeltest.Left:=50;
labeltest.Top:=50;
labeltest.Caption:='test';
labeltest.Visible:=true;
end;无论如何运行，LEBELTEST就是不能显示出来，究竟问题出在哪呢？是不是还有什么必要属性我没有设置啊？
还有，对于动态生成按钮是不是也要如此呢？