Error con Forma heredada

[rhino0nt]

Estoy realizando un proyecto donde para las funciones de control de registros de catálogos he creado una forma Base, esta forma la heredo para generar las pantallas para cada tipo de Registro de manera que en la forma base tengo todas las funciones para le manejo de los registros y desde las formas hijas solamente llamo las funciones dando como referencia el dataset en el que se tiene que trabajar, hasta aqui no tengo problemas, mi problema se presenta con una funcuón de búsqueda. Cada forma tiene un botón para Buscar que manda llamar la forma de Busqueda que corresponda al tipo de registro con el que se está trabajando, mi problema es que paso como parámetro el nombre de la forma de búsqueda, la función de buscar se encuentra en la forma padre, pero al momento de intentar crear la forma me marca una excepción.

Este es el código que debería mandar llamar la forma de búsqueda:

procedure TfmBaseRegistros.Buscar(pdDatos: TDBQuery; pfFormaBusqueda: TForm);
var
  fmBuscar : TForm;
begin
  try
    fmBuscar := pfFormaBusqueda.Create(nil);
    fmBuscar.ShowModal;
  finally
    fmBuscar.Free;
  end;
end;

Cualquier pista se agradecerá.

Saludos a todos.

[rhino0nt]

Me respondo, esta es la forma correcta de hacerlo:

procedure TfmBaseRegistros.Buscar(pdDatos: TUniQuery; pfFormaBusqueda: TComponentClass);
var
  fmBuscar : TForm;
begin
  // Se valida que el dataset no se encuentre en modo de inserción o edición.
  ValidaEstatus(pdDatos, dsInsert);
  ValidaEstatus(pdDatos, dsEdit);

  try
    Application.CreateForm(pfFormaBusqueda, fmBuscar);
    fmBuscar.ShowModal;
  finally
    fmBuscar.Free;
  end;
end;

De esta manera se crea correctamente la forma.

Saludos a todos.