Delphi Код:
begin
if (fromclient) and (pck=hstr('1B 06 00 00 00')) then begin
buf:='';
WriteS(hstr('f8 01 00 00 00'));
SendToClient;
end;
if (fromclient) and (pck=hstr('1B 06 00 00 00')) then begin
buf:='';
WriteS(hstr('f8 01'));
SendToClient;
end;
end.