О-о-пс, ошибся в TGood.Assign, справлено так:

procedure TGood.Assign(Source: TPersistent);

begin
  Self.Collection := TGood(Source).Collection;
  Self.DisplayName := TGood(Source).DisplayName;
  Self.Text := TGood(Source).Text;
end;

Результат тот же.