[js roman1]

Доброго времени суток. У меня имеется статический объект, и необходимо создавать динамические копии данного объекта. Объект сам панель, на этой панели расположены элементы у которых имеются события. Вот, как можно создать динамическую копию этой панели при это не теряя всех свойств элементов которые находятся на данной панели?

Код:

var
  MainPanel: TMemoryStream;
 
procedure TBrowserForm.FormCreate(Sender: TObject);
begin
 MainPanel:= TMemoryStream.Create;
 MainPanel.Position:=0;
 MainPanel.WriteComponent(MainPagePanel);
end;
 
procedure TBrowserForm.t1Click(Sender: TObject);
var
 tabs: TTabSheet;
 Panel: TsPanel;
begin
 tabs:=TTabSheet.Create(Self);
 tabs.PageControl:=MainPageControl;
 tabs.Caption:='New Tab Page';
 tabs.Show;
 Panel:= TsPanel.Create(Self);
 Panel.Parent:= PageControl1.ActivePage;
 MainPanel.Position:=0;
 MainPanel.ReadComponent(Panel);
end;