herencia entre paquetes

[Nidia H. Ochoa]

buen dia:
mi duda es como logro crear un objeto en un paquete desde un paquete base.
yo tengo un paquete base que esta compuesto de una unidad y quiero definir un boton para que al cargar otro paquete que contiene una forma y esta forma es creada de la que se encuentra en el paquete base (su hija) ya contenga el boton creado en el paquete base.

algo que yo estoy trabajando es crearle al paquete base un metodo donde es creado el boton pero al ser llamado en el paquete con la forma hija el metodo se reinscribe y pierdo el metodo del padre como puedo hacer eso.

parte del codigo es:

codigo del paquete base

unit UFormaBase;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type

TFormaBase = class(TForm) // declaracion de clase de tipo TForm

private

public

{ bloque de metodos generales }

procedure CreaButton(const PNLeft, PNTop : Integer); virtual;

implementation

{ creacion de metodos generales }

procedure TFormaBase.CreaButton(const PNLeft, PNTop : Integer);

var

cmdFija : TButton;

begin

cmdFija := TButton.Create(cmdFija);

cmdFija.Parent := cmdFija;

cmdFija.Left := PNLeft;

cmdFija.Top := PNTop;

end;

end.

codigo de otro paquete con una forma hija

unit Catalogo;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, Activex, UFormaBase, DMCatalogo, fpGenerales;

type

TfrmCatPlazos = class(TFormaBase) // forma hija

private

public

procedure CreaButton(const PNLeft, PNTop : Integer); override; // aqui es donde llamo al metodo

end;
end.

Espero y puedan ayudarme de antemano muchas gracias.