[Alegun]

Вопрос в том, что нужно считывать из памяти: если АртМоня показывает целое восьмибайтное, то тогда буфер должен быть array[1..8] of byte и после получения его надо преобразовать к integer, например, так:

Код:

function bth(ds: array of byte): integer;
   var
   i: integer;
   s: string;
  begin
  s:= '$';
  for i := High(ds) downto Low(ds) do
  s:= s + IntToHex(ds[i], 2);
  Result:= StrToInt(s);
  end;

...
bth(Buffer);
...