сообщения пользователям

[pk]

Помогите разобраться, plz;) Через интерфейс рассылаю сообщения пользователям, находящимся в "Галактике", не всегда почему-то проходит отсылка, т.е. сообщения теряются?
По кнопке "ОК" отсылает одному, по кнопке "Всем" - всем пользователям из таблицы x$activeusers.
Я уж голову сломал, почему так, может не обрабатывается какое-либо сообщение из очереди?
Спасибо;)

------------Сам интерфейс
interface galusers cyan,escclose;
var fl:byte;
var t:string[80];
var ev:word;
parameters t;
create view as select novellname,usercode from x$activeusers(readonly)
order by novellname;
browse b1;
fields
x$activeusers.novellname 'Пользователь':[10],protect;
string(x$activeusers.usercode) 'Код':[20],protect;
x$activeusers.start_time 'Время входа':[10],protect;
end;
handleevent
cmInit:{
starttimer(cmPass,10,false);
putcommand(cmPass)};

cmPass:{
settitle('Активных пользователей '+string(recordsintable(0))+' на '+timetostr(cur_time,'HH:MM:SS'));
rereadrecord();
Exit};

cmDefault:{
fl:=1;
ev:=RunDialog('usermsg02',t);
if ev=cmOK then SendMessageToSession(x$activeusers.sessionid,t)
else if ev<>cmCancel then{
PushPos(#x$activeusers);
_loop x$activeusers SendMessageToSession(x$activeusers.sessionid,t);
PopPos(#x$activeusers)}};

cmSetDefault:{
clearallevents;
Exit};

! cmSetCurField:
! if fl=1 then{
! fl:=0;
! abort}
end;
end.

----------Диалог дла запроса текста сообщения
usermsg02 Dialog
fields
an1:string[80];
buttons
cmOk,default;
cmAll,,closeowner;
cmCancel;
<< ' Посылка сообщения'
Текст:.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
<.OK.> <.Всем.> <.Cancer:).>
>>