DataRepond.dbIsamdbRepond.Connected:=False;  // TDBIsamDatabase
     DataRepond.Sessie.Active:=True;  // used session
     DataRepond.Sessie.AddPassword('GrEeBpRoUnIdK');
     DataRepond.Sessie.PrivateDir:=WorkPath; // WorkPath is one of my 
functions.
     DataRepond.dbIsamdbRepond.Directory:=DATApath; // same for DATApath
     DataRepond.dbIsamdbRepond.Connected:=True;
     .
     .
     if not DataRepond.dbIsamUsers.Active then 
DataRepond.dbIsamUsers.Open;  // works fine!!!
     .
     .
     nUsers:=0;
     while (not DataRepond.dbIsamUsers.LockSemaphore(nUsers+1)) 
do     <<<<<< problem
     begin
       Inc(nUsers);
     end;