Delphi中如何动态的加入Label组件

显示：Label1.Visible //TRUE FALSE
移动：Label1.Left //数值大小控制
下面的是随着 Label1.Left的变化移动的小例子

procedure TForm1.Button1Click(Sender: TObject);
var Label1:TLabel;
i:integer;
begin
Label1:=TLabel.Create(self);
Label1.Parent:=Form1;
Label1.Top:=20;
Label1.Left:=2;
Label1.Caption:='A';
for i:=0 to 20 do
begin
Application.ProcessMessages;
Label1.Left:=Label1.Left+i;
Sleep(100);
end;
end;

label1 :=TLabel.Create(self);
label1.parent := form1;
label1.top := 100;
...

你不光是delphi初学者吧，如果连这个问题都解决不了，后面遇到的问题就太多了，先学好基础吧。