[J-Fobos]

http://coderx.ru/showthread.php?t=10

begin
if (FromServer) and (pck[1]=#$CE) and (pck[2]=#$55) and (pck[3]=#$6D) then
begin
buf:=Hstr('80 55 3F 02 41 11 00 C7 44 01')+pck[4]+pck[5]+Hstr('00 00 33 33 33 3F');
SendToServerEx('name');
end;
end.