[mks]

boyan
у тебя косяки в присваивании пакетов использования цп хп и тп)
поменяй этот кусок

//пьем сначала ГCP, потом ЦП банку ,потом HP банку, потом МП банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuses='') then CPuses:=pck;
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuses<>pck) and (HPuse='') then HPuse:=pck;
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (HPuse<>pck) and (MPuse='') then MPuse:=pck;

на

if FromClient and (count<4) and (ConnectName=Name) and (pck[1]=#$14) then
begin
count:=count+1;
case count of
1: CPuse:=pck;
2: CPuses:=pck;
3: HPuse:=pck;
4: MPuse:=pck;
end;
end;

и все будет в шоколаде