[alexteam]

поржал...

begin
if fromclient and (pck[1]=#$1b) then 
case pck[2] of
#$06:
  begin
    pck := '';
    buf := hstr('f8 01 00 00 00')
    sendtoclient;
  end;
#$05:
  begin
    pck := '';
    buf := hstr('f8 01');
    sendtoclient;
  end;
end
end.