Пробуй, только отпишись! я сам нубась в это м деле
begin
if fromserver and (ConnectName='Здесь свое имя') then
begin
case pck[1] of
#$16 : if (ReadD(10)=57) or (ReadD(10)=2508) then
begin
pck:='';
end;
#$05 : if (ReadD(10)=57) or (ReadD(10)=2508) then
begin
pck:='';
end;
end;
end;
end.
|