Error creando forms en una funcion comun en delphi 7

[victorpower]

Hola, si alguien podria ayudarme con el error que me da cuando hago la llamada a una funcion para crear y controlar el cierre de los formularios, "bastante comun", que he visto en varios lugares, lo que no se, es si hay que cambiar alguna propiedad en cada formulario que va a ser llamado por la misma, porque me da el error siguiente:
"Cannot make a visible window modal" o sino errores de excepcion., dependiendo del parametro que le paso en cuando creo, siendo "Self o Application", la func. es la siguiente:

procedure TPrincipal.showform(AFormClass:TFormClass);
begin
with AFormClass.create(self) do
try
ShowModal;
finally
Free;
end;
end;

llamandola de la sig. forma:

showform(TForm1);

Gracias.