//by _Vasilisk_ 
function PortableInteger(APtr: Pointer; ASize: Integer): Int64;
type
  TValue = record
  case Byte of
    1: (v1: ShortInt);
    2: (v2: SmallInt);
    4: (v4: Integer);
    8: (v8: Int64);
    255: (reserved: array[0..7] of ShortInt);
  end;
var
  LValue: ^TValue absolute APtr;
  Li: integer;
begin
  case ASize of
    SizeOf(LValue^.v1): Result := LValue^.v1;
    SizeOf(LValue^.v2): Result := LValue^.v2;
    SizeOf(LValue^.v4): Result := LValue^.v4;
    SizeOf(LValue^.v8): Result := LValue^.v8;
  else
    if LValue^.reserved[ASize - 1] < 0 then
      Result := -1
    else
      Result := 0;
    for Li := ASize - 1 downto 0 do
      Result := (Result shl 8) or (LValue^.reserved[Li] and $FF);
  end;
end;

function PrintLine(var p: BytePtr; var outBuffer: string): boolean;
var
  Length: word;
begin
  Length := word(PortableInteger(p, sizeof(word)));
  p := BytePtr(NativeUInt(p) + sizeof(word));
  if Length > 0 then
    outBuffer := outBuffer + Format('%s'#13#10, [PAnsiChar(p)]);
  p := BytePtr(NativeUInt(p) + Length);
  Result := Length > 0;
end;

function PrintInfo(p: BytePtr; pSize: cardinal; var outBuffer: string): boolean;
var
  pEnd: BytePtr;
begin
  Result := False;
  pEnd := BytePtr(NativeUInt(p) + pSize);
  while ((NativeUInt(p) < NativeUInt(pEnd)) and (p^ <> isc_info_end)) do begin
    case p^ of
      isc_info_svc_line: begin
        Result := PrintLine(p, outBuffer);
        break;
      end;
      isc_info_truncated: begin
        outBuffer := outBuffer + #13#10'<<< truncated >>>'#13#10;
        Result := True;
        break;
      end;
      isc_info_svc_timeout, isc_info_data_not_ready: begin
        Result := True;
        break;
      end
      else begin
        outBuffer := outBuffer + Format('Unknown item 0x%x in received buffer'#13#10, [NativeUInt(p) - 1]);
        break;
      end;
    end;
  end;
end;

...
      repeat
        svc.query(st, 0, nil, sizeof(receiveItems2), @receiveItems2, sizeof(results), @results);
      until PrintInfo(@results, sizeof(results), outBuffer);
...

function PrintLine(hLib: HMODULE; var p: BytePtr; var outBuffer: string): boolean;
var
  Length: long;
  s: string;
  ss: short;
  isc_vax_integer: function(Ptr: BytePtr; Length: short): long;
begin
  @isc_vax_integer := GetProcAddress(hLib, 'isc_vax_integer');
  ss := sizeof(word);
  Length := isc_vax_integer(p, ss);
  p := BytePtr(NativeUInt(p) + sizeof(word));
  if Length > 0 then begin
    s := PAnsiChar(p);
    outBuffer := outBuffer + Format('%s'#13#10, [s]);
  end;
  p := BytePtr(NativeUInt(p) + Length);
  Result := Length > 0;
end;