Intraweb form dinamico.

procedure TIWPrincipal.MenuClick(Sender: TObject);
begin
  try
    if Sender is TMenuItem then
      OpenForm(TIWAppForm((Sender as TMenuItem).Hint),'',(Sender as TMenuItem).Tag);
  except
  end;
end;

procedure TIWPrincipal.OpenForm(Form: TIWAppForm; vPermissao: integer);
var aux: TIWAppForm;
begin
  aux := Form.Create(WebApplication, vPermissao);
  aux.Show;

//ou Form.Create(WebApplication, vPermissao).Show, tb nao da
end;