Erro p/ ler registro do windows

Bom dia.

Estou utilizando uma função de leitura dos registros do windows da net, mas qdo tento compilar dá erro dizendo que não conhece o nome da chave na linha q vou definir o [b:7178c95e7b]RootKey[/b:7178c95e7b] (linha em vermelho na função abaixo).

function ReadAppKey(const Key: String; DefValue: String): String;
begin
with TRegistry.Create do
begin
[color=darkred:7178c95e7b]RootKey := HKEY_LOCAL_MACHINE;[/color:7178c95e7b]
OpenKey(´Software\Merco\ComPedido´, True);
if ValueExists(Key) then
Result := ReadString(Key)
else
begin
WriteAppKey(Key, DefValue);
Result := DefValue;
end;
Free;
end;

Já adicionei no uses a classe Registry e continua dando o erro.

Não sei mais o que pode ser, se alguém puder ajudar, agradeço muito..