[xkor]

тут друг попросил сделать так что выкладываю:

const
  RB_List = [10245];
  RB_Count = 1;
  TellTo = 'nik';

var
  i: integer;

begin
  if FromServer and (pck[1]=#$16) then
  for i:=0 to RB_Count-1 do
  if (RB_List[i]+1000000=ReadD(6)) then begin
    buf:=#$38;
    WriteS('RB detected!');
    WriteD(2);
    WriteS(TellTo);
    SendToServer;
  end;
end.