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

Question

我想用Label组件来模拟人，用串口通信，让Label组件随着外部的硬件的出现而出现，随硬件的移动而移动。哪位高手能帮我写下完整的代码呀？如果能够实现的话，会增加悬赏分！谢谢了！
谢谢回答，可是，程序有错： Undeclared identifier: 'label1'。我是Delphi初学者，所以很多细小简单的问题我都不太清楚，请指点一下！这里的代码应该是只创建了一个组件，没有实现它的移动吧？能不能让它跟外部硬件联系起来，随着外部的硬件的出现而出现，随硬件的移动而移动呀？

Answer 1

显示：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;

Answer 2

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

Answer 3

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