Me respondo yo mismo. Se puede hacer con un TIBQuery pero no se pueden usar parámetros. Es decir:
Código:
Query1->Close();
Query1->SQL->Text = "CREATE USER Usuario PASSWORD :Clave";
Query1->ParamByName("Clave")->AsString = Clave;
Query1->ExecSQL();
da error. Hay que meter los valores directamente en la cadena:
Código:
Query1->Close();
Query1->SQL->Text = "CREATE USER Usuario PASSWORD '" + Clave + "'";
Query1->ExecSQL();