ReadBinaryData

[komex]

Здравствуйте! Хочу считать данные из реестра типа rdBinary. Вот фрагмент кода:

var
  reg: TRegistry;
  List: TStringList;
  i, j, sz: Word;
  toWrite, str: string;
  buf: array of byte;
  info: TRegDataInfo;
begin
List := TStringList.Create;
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
try
  reg.OpenKey(Path, false);// Path - передается в параметрах процедуры
  reg.GetValueNames(List);
  if List.Count > 0 then begin
    for i := 0 to List.Count - 1 do begin
      reg.GetDataInfo(List[i], info);
      case info.RegData of
        rdBinary: begin
          sz := info.DataSize;
          SetLength(buf, sz);
          try
          reg.ReadBinaryData(List[i], buf[0], sz);
          except
           ShowMessage('Error:'+#10+Path);
          end;
          str := '';
          if sz > 0 then begin
          for j := 0 to sz - 1 do
            str := str + trim(Format('%2x',[buf[j]]))+' ';
          str := trim(str);
          end;

Некоторые значения считываются без проблем, а на некоторых вылетает ошибка: Raised exception class ERegistryException with message 'Invalid data type for "UserFile"'.
Я посмотрел с помощью regedit что там лежит. Вроде ничего особенного: параметр "UserFile" типа REG_BINARY. Не пойму даже от чего это зависит - вроде все тоже самое. Если кто сталкивался с этим, подскажите, плз!

P.S. На форуме искал, вроде никто такое проблемы не поднимал...

[komex]

Хм. Никто не сталкивался что ли?

[Alter]

Странно, у меня читает нормально, посмотрите мой вариант во вложении:

[komex]

Сообщение от Alter

Странно, у меня читает нормально, посмотрите мой вариант во вложении:

О! Спасибо большое! Только я не понял, из-за чего твой код работает, а мой не всегда? Может из-за типов?