[xkor]

Сообщение от DeVolf

а как мне сделать чтоб пакет не дошол до сервера (pck=#$38#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) ?

добавить в обработку этого пакета pck:='';
тоесть так:

const
  mp='8A 1B 15 01 10';
  hp='8A 1A 15 01 10';
begin
  if fromclient and (pck=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then begin
    buf:=hstr(hp);
    SendToServer;
    pck:='';
  end;
  if fromclient and (pck=#$38#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then begin
    buf:=hstr(mp);
    SendToServer;
    pck:='';
  end;
end.