Me respondo, esta es la forma correcta de hacerlo:
Código:
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.