[AD!]

var levels:integer;
....
levels:=0;

.....
if (ConnectName=name) and (FromClient) then
begin

if (pck[1]='#$1B') and (pck[2]='#$06') then  //социальное действие Yes
    begin
    levels:=levels+1;
    buf:=#$6C;   //6C 
    WriteD(258);  //02 01 00 00 
    WriteD(levels);   //
    WriteD(0);     //00 00 00 00
    SendToServerEx(Name);
    end;
end;

как-то так, не проверял на работоспособность)