Проблема с RegEnumKeyEx

[Olim]

Тут недавно столкнулся с одной проблемой:

var
 hRegKey: HKEY;
 i: Integer;
 KeyCount: longint;
 buffer: array [0..255] of char;
 buffer_len: dword;
begin
 if RegOpenKey(HKEY_CURRENT_USER,'Software\Mail.Ru\Agent\magent_logins',hRegKey) = ERROR_SUCCESS then
 begin
  buffer_len := 256;
  if RegQueryInfoKey(hRegKey,nil,nil,nil,nil,nil,nil,@KeyCount,nil,nil,nil,nil) = ERROR_SUCCESS then
   for i := 0 to KeyCount - 1 do
   begin
    if RegEnumKeyEx(hregKey,DWORD(i),@buffer,buffer_len,nil,nil,nil,nil) = ERROR_SUCCESS then
     MessageBox(0,@buffer,'Key',MB_ICONEXCLAMATION)
    else
     MessageBox(0,'RegEnumKeyEx error','Error',MB_ICONWARNING)
   end
  else
   MessageBox(0,'RegQueryInfoKey error','Error',MB_ICONWARNING)
 end
 else
  MessageBox(0,'RegOpenKey error','Error',MB_ICONWARNING);
end;

Вот тута вылетает ошибка RegEnumKeyEx error. Не знаю почему Плз, помогите