[roman]

Empezado por dec

Código Delphi [-]
 procedure TMiForm.Assign(Source: TPersistent);
 begin
   inherited;
    if Source is TForm then
    begin
      FForm := TForm(Source);
    end;
    inherited Assign(Source);
 end;

Hola dec,

El propósito de Assign es copiar el contenido de un objeto a otro.

Cuando asignas

FForm := TForm(Source);

no estás copiando el contenido sino simplemente la referencia al objeto. Es decir que sólo has pospuesto el problema de la asignación en el método Set al método Assign.

Estoy seguro que ahora ya te queda claro.

// Saludos