Hacer público un método oculto

[[Lepe]]

Estoy intentando derivar de un TrxLookupedit (unidad RXLOOKUP.PAS) para hacer publico un metodo:
ShowPopup(Origin:Tpoint)

Lo que deseo hacer es añadirle la propiedad AutoDropDown, pero como no tengo ni idea, he pensado mejor hacer publico ese método.

El problema que tengo es que la lista se queda indefinidamente abierta. ¿ Por qué ocurre ? o ¿ como se puede subsanar ese desaguisado?

el código que tengo es este: (perdonad si hay "burradas", pero no tengo ni idea de diseño de componentes)

type
  TRxLookupEditSH = class(TRxLookupEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure ShowPopup();
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure TrxLookupEditSH.ShowPopup();
var p:TPoint;
begin
// seguro que hay una forma mejor....
p := Self.ClientOrigin;
p.Y := p.Y+ Self.ClientHeight;
Dec (p.X, BorderWidth +2);
Inc (p.Y,BorderWidth *2+2);

inherited ShowPopup(p);

end;

procedure Register;
begin
  RegisterComponents('RX DBAware', [TRxLookupEditSH]);
end;

end.

gracias Mil.
Saludos