- var
- st:TMemoryStream;
- p:TPanel;
- begin
- RegisterClass(TPanel);
- st:=TMemoryStream.create;
- st.WriteComponent(panel1);
- panel1.free;
- // Das Panel ist jetzt gelöscht
- st.Seek(0,soFromBeginning);
- // neues Panel aus den Daten vom Stream erzeugen
- p:=TPanel(st.ReadComponent(nil));
- InsertControl(p);
- st.free;