¿alguien conoce el uso de la clase TOwnerCollection?

[delphi.com.ar]

Yo cambiaría un par de detalles sutiles:

Código Delphi [-]
type
  TItemRegistros = class(TCollectionItem)
  private
    FRegName: string;
  public
    function GetDisplayName: string; override;
  published
    property RegName: string Read FRegName Write FRegName;
  end;

implementation

function TItemRegistros.GetDisplayName: string;
begin
  if RegName = '' then
    Result := Format('%s [%d]', [ClassName, Index])
  else
    Result := RegName;
end;

¿El nombre tiene alguna funcionalidad mas que ser mostrado en tiempo de diseño?...

[delphi.com.ar]

De casualidad vi otro detalle, que no tendría nada que ver con el problema anterior, en la parte:

Código Delphi [-]
procedure TItemRegistros.Assign(Source: TPersistent);
begin
  if Source is TRegistro then
    FRegistro := TRegistro(Source) 
  else
    inherited Assign(Source);
end;

Esta no es la idea de los métodos assign, la idea es que copie los valores no las referencias:

Código Delphi [-]
procedure TItemRegistros.Assign(Source: TPersistent);
begin
  if Source is TRegistro then
    with TRegistro(Source) do
    begin
      FRegistro.RegName := RegName;
      FRegistro.Registro.Assign(Registro); {Tendrías que implementar este método en TRegistro}
    end
  else
    inherited Assign(Source);
end;

Saludos!

[fredo]

si queda mejor como dices tu, pero sigue apareciendo el erro, al parecer hay un problema en el orden de creacion de los componentes, al cerra y abrir, trata de cargar primero la propiedad registros, ahi aun no existe el Registro por lo cual marca fallo, tengo que ver como cambiar el orden de creacion, primero los registros, luego el item.... gracias por darte la lata de leer el codigo.

tratare de corregir eso