Для Лёхи;

нужен док.exe. Пароли теперь читаем так;

объявляем все в начале.

enum {root=0, pov,
eng1, eng2, eng3, eng4,
oper1, oper2, oper3, oper4, oper5, oper6, oper7, oper8, oper9, oper10, oper11, oper12};
AnsiString LastLoginName;
int LastLoginIndex;

пример, а на батоне обрабатывем;

StructBaseX s;
GetByNameBaseClient("CurrentOleumUser",&s);
LastLoginIndex=(int)s.Value;
LastLoginName=(char*)s.String;


if(LastLoginIndex==-1){
Application->MessageBox("Вы не вошли.","Oleum",MB_OK);
return;
}
if(LastLoginIndex<oper1)
{
PageControl1->ActivePage=TabSheet3;
AnsiString msg="Вход в окно БЛА БЛА БЛА";
msg+=LastLoginName;
StoreAlarmBaseClient(("I"+msg).c_str());
}else{
Application->MessageBox("У вас низкий уровень доступа","Oleum",MB_OK);
}

pwd_frm выкидывай из проекта.