procedure TForm1.Button1Click(Sender: TObject);
var
   MS: TMemoryStream; // поток в памяти
   NewForm: TForm1;   // дубликат формы
begin
   MS := TMemoryStream.Create; // создаем
   try
     MS.WriteComponent(Form1);  // пишем форму в поток
     NewForm := TForm1.CreateNew(Application);   // создаем новую форму
     MS.Position := 0;          // устанавливаем позицию с которой будем читать из памяти
     MS.ReadComponent(NewForm); // читаем
     NewForm.Show;              // показываем форму
   finally
     MS.Free                    // высвобождаем память
   end;
end;