[[AgustinOrtu]]

Código Delphi [-]
class function Tf_smName.MostrarVentana(ATag : Integer; var AForm: TForm) : TModalResult;
begin
    AForm := Create(Application);
    with AForm do
    Try
      Tag      := ATag;
      Result   := ShowModal;
    finally
      Free;
    end;
end;

No lo he probado en el delphi pero a simple vista asi parece que funcionara el

Código Delphi [-]
Application.CreateForm(TipoForm, VariableForm);

Y la llamada

Código Delphi [-]
Tf_smName.MostrarVentana(nroTag, f_smName);