Как работать с реестром средствами API?

Code:

{  Создаем список всех подразделов указанного раздела }

procedure TForm1.Button1Click(Sender: TObject);

var

MyKey        : HKey;        { Handle для работы с разделом }

Buffer        : array[0..1000] of char; { Буфер }

Err, { Код ошибки }

index        : longint; { Индекс подраздела }

begin

Err:=RegOpenKey(HKEY_CLASSES_ROOT,'DelphiUnit',MyKey); { Открыли раздел }

if Err<> ERROR_SUCCESS then

begin

   MessageDlg('Нет такого раздела !!',mtError,[mbOk],0);

   exit;

end;

index:=0;

{Определили имя первого подраздела }

Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer));

while err=ERROR_SUCCESS do { Цикл, пока есть подразделы }

begin

   memo1.lines.add(StrPas(Buffer)); { Добавим имя подраздела в список }

   inc(index); { Увеличим номер подраздела }

   Err:=RegEnumKey(MyKey,index,Buffer,Sizeof(Buffer)); { Запрос }

end;

RegCloseKey(MyKey); { Закрыли подраздел }

end;