И снова о скрипте на запрет писАть в главный (общий) канал

Здравствуйте.
Очень актуальная проблема, в связи с новыми пользователями.
Задача - просто запрет на отправку в главный канал или появление всплывающего окна с запросом подтверждения отправки в главный канал ВСЕМ пользователям.
То, что нашел поиском - не работает, а именно:
function OnConfMessage(iCID, iUIN, iUID, iMsgType: integer; sConfName, sMsg: string): boolean;
var
bFlag: boolean;
begin
bFlag := true;
if sConfName = 'main' then begin
if iUIN <> 3 then bFlag := false;
end;
result := bFlag;
end;
begin
end.
Заранее спасибо !!!
Очень актуальная проблема, в связи с новыми пользователями.
Задача - просто запрет на отправку в главный канал или появление всплывающего окна с запросом подтверждения отправки в главный канал ВСЕМ пользователям.
То, что нашел поиском - не работает, а именно:
function OnConfMessage(iCID, iUIN, iUID, iMsgType: integer; sConfName, sMsg: string): boolean;
var
bFlag: boolean;
begin
bFlag := true;
if sConfName = 'main' then begin
if iUIN <> 3 then bFlag := false;
end;
result := bFlag;
end;
begin
end.
Заранее спасибо !!!