моно так . пример
Код:
if FromServer and (pck[1] = #$31) and (ConnectName=Name1) then
case pck[18] of
mana1:begin //Пакет от номера 1 СверяемПакет чат инфо c ObjectID от пакета PartySmallWindowAll
buf:=hstr('49 4F 04 20 00 10 04 3D 04 42 04 11 04 30 04 44 04 00 00 03 00 00 00')
SendToServer;
end;
mana2:begin //Пакет от номера 2 СверяемПакет чат инфо с ObjectID от пакета PartySmallWindowAll
buf:=hstr('49 2F 04 20 00 21 04 4D 04 34 04 40 04 38 04 3A 04 00 00 03 00 00 00')
SendToServer;
end;
mana3:begin //Пакет от номера 3 СверяемПакет чат инфо с ObjectID от пакета PartySmallWindowAll
buf:=hstr('49 2F 04 20 00 1D 04 4D 04 3B 04 4F 04 00 00 03 00 00 00')
SendToServer;
end;