Можно примерно так:
AnsiString param_loc,param_far;
param_loc=" -user sysdba -pass masterkey -role SALER -add " + newuser + " -pw 1";
char *str_loc=param_loc.c_str();
param_far=" -user sysdba -pass masterkey -database c:/Progra~1/FireBird/isc4.gdb -add " + newuser + " -pw 1";
char *str_far=param_far.c_str();
ShellExecute(0,NULL,"c:\\Program Files\\FireBird\\bin\\gsec.exe",str_loc,NULL,SW_SHOWNORMAL);
ShellExecute(0,NULL,"c:\\Program Files\\FireBird\\bin\\gsec.exe",str_far,NULL,SW_SHOWNORMAL);
IBQuery1->Close();
IBQuery1->SQL->Clear();
AnsiString as="grant SALER to " + newuser;
IBQuery1->SQL->Add(as);

IBQuery1->ExecSQL();
IBDataSet1->ApplyUpdates();

Да. И именно к FB-1. И неприятные черные окна проскакивают. И ваще... Хотя меня на скору руку этот вариант устроил.
Ну привязка к пути, наверное, не проблема. Ну а кто знает как лучше - с удовольствием поучусь (обязательное качество для чайника