var
i:integer;

begin
if (FromServer) and (pck[1]=#$21) then
begin
buf:=HStr('04')+pck[6]+pck[7]+pck[8]+pck[9]+HStr('A8 41 02 00 B8 27 FF FF 53 F5 FF FF 00');
for i:=1 to 1 do
SendToServerEx('СВОЙ НИК');
end;
end.