Создать копию объекта в Delphi очень просто. Конвертируем объект в текст, а затем - обратно. При этом будут продублированы все свойства, кроме ссылок на обработчики событий. Для преобразования компонента в файл и обратно нам понадобятся функции потоков WriteComponent(TComponent) и ReadComponent(TComponent). При этом в поток записывается двоичный ресурс. Последний с помощью функции ObjectBinaryToText можно преобразовать в текст.
Создадим на их основе функции преобразования:

Code:

function ComponentToString(Component: TComponent): string; var ms: TMemoryStream; ss: TStringStream; begin ss := TStringStream.Create(' '); ms := TMemoryStream.Create; try    ms.WriteComponent(Component);    ms.position := 0;    ObjectBinaryToText(ms, ss);    ss.position := 0;    Result := ss.DataString; finally    ms.Free;    ss.free; end; end;   procedure StringToComponent(Component: TComponent; Value: string); var StrStream:TStringStream; ms: TMemoryStream; begin StrStream := TStringStream.Create(Value); try    ms := TMemoryStream.Create;    try      ObjectTextToBinary(StrStream, ms);      ms.position := 0;      ms.ReadComponent(Component);    finally      ms.Free;    end; finally    StrStream.Free; end; end;

С помощью пары этих функций мы можем преобразовать любой компонент в текст, а затем проинициализировать другой компонент того же класса этими данными.
Ниже приведен ресурс формы с одной кнопкой и текст обработчика нажатия на эту кнопку.

Code:

object Form1: TForm1 Left = 262 Top = 129 Width = 525 Height = 153 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Scaled = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton    Left = 16    Top = 32    Width = 57    Height = 49    Caption = 'Caption'    TabOrder = 0    OnClick = Button1Click end end   procedure TForm1.Button1Click(Sender: TObject); var Button: TButton; OldName: string; begin Button := TButton.Create(self);   //...сохраняем имя компонента OldName := (Sender as TButton).Name;   //...стираем имя компонента, чтобы избежать конфликта имен. //...После этого Button1 станет = nil. (Sender as TButton).Name := '';   //...преобразуем в текст и обратно StringToComponent( Button, ComponentToString(Sender as TButton) );   //...дадим компоненту уникальное(?) имя Button.Name := 'Button' + IntToStr(random(1000));   //...вернем исходному компоненту имя. //...После этого Button1 станет снова указывать на объект. (Sender as TButton).Name := OldName;   //...размещаем новую кнопку справа от исходной Button.parent := self; Button1.Tag := Button1.Tag + 1; Button.Left := Button.Left + Button.Width * Button1.Tag + 1; end;

Приведенный метод не дублирует указатели на обработчики событий. Однако, если таким образом дублировать формы, то все дочерние компоненты и все обработчики сохранятся.