URGENTE !!! O QUE HA DE ERRADO NESSE CODIGO ??????

Caros amigos,

Estou precisando de ajuda para descobrir onde esta o erro nesse codigo ...
A finalidade ele é ler a chave LANMAN no registro do windows.

Obrigado desde já...


var
reg: TRegistry;
KeyList: TStringList;
i: Integer;
begin
Reg := CreateTRegistry;
try
KeyList := TStringList.create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly(´\´);
Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
if Copy(KeyList[i], 1, 1) = ´.´ then
begin
reg.OpenKeyReadOnly(KeyList[i]);
if Reg.ValueExists(´LANMAN´) then
begin
FFileExt.Values[KeyList[i]] := Reg.ReadString(´LANMAN´);

{ AQUI É UM TTEXTLISTBOX }
texto.Items.AddStrings(ffileext);

end;
reg.CloseKey;
end;
end;
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´);

KeyList.Clear;

Reg.GetKeyNames(KeyList);
reg.Closekey;
for i := 0 to KeyList.Count - 1 do
begin
Reg.OpenKeyreadOnly(´\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\NETWORK\LANMAN´ + KeyList[i]);

FMIMEList.Values[reg.ReadString(´Path´)] := KeyList[i];


Reg.CloseKey;
end;
finally
KeyList.Free;
end;
finally
reg.free;
end;