DELPHI 动态创建问题！急！！！！！！！ （200分送你）(200分)

想请都大家一个问题：
我在DELPHI中动态创建一个 TabSheet ，放在 PageControl1 中，PageControl1 原来
就有一个TabSheet1，我动态创建后的 TabSheet 的命名从 2 开始，也就是 TabSheet2
TabSheet3....。
之后我又动态的创建了一个 Button ，比如命名为 Button2，原先在 TabSheet1 中就有
一个Button1 。
现在问题来了：
1、我要在程序中操作原有的Button1还好办，但我要操作Button2要怎么操作呢？
2、如果我再加一个功能，让TabSheet可以关掉的，也就是 Free 掉，那我现在要随机操
作一个 TabSheet 与 其上的 Button ，要怎么操作呢？我不知当前的是哪一页，TabSheet
的组件名是什么？Button的组件名是什么？要怎么办呢？

请参考：
procedure TForm1.Button2Click(Sender: TObject);
var
edname:String;
B_edit:TComponent;
i:integer;
begin
for i:=1 to 3 do
begin
edname:='edit'+inttostr(i);
B_Edit:=FindComponent(edname);
TEdit(B_Edit).text:=IntTostr(i);
end;
end;

if ActiveControl is TButton then TButton(ActiveControl).XXX;

谢谢我们，把分给你们送上。

再请教一个问题，怎么样用DELPHI取得主板的序列号，要在不管什么操作系统上
都不会变化的。谢谢！！！！！！！