关于动态创建问题

Question

怎么动态创建toolbutton
是程序关闭后，创建的控件在下次打开时
仍然存在，而且创建事件不要在form.create事件里写
因为不需要开机就创建，而是通过其他事件创建。

Answer 1

var  FS : TFileStream;
     i : integer;
begin
  Fs := TFilestream.Create(FileName,fmcreate or fmopernwrite);
  For i := 0 to controlcount - 1 do 
  beign
    fs.writecomponent(controls[i] as tcomponent);
  end;
  FS.Free;
end;//读取控件
var  FS : TFileStream;
     FComponent : TComponent;
begin
  Fs := TFilestream.Create(FileName,fmopenRead);
  while Fs.Position < FS.Size do 
  begin
    FComponent := fs.readcomponent(nil);
    InsertControl(Fcomponent as tcontrol);
    FComponent.parent := form1;
  end;
  FS.Free;
end;