Error con Forma heredada

[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.