Fórum Alteração POP3/SMTP através do registro do windows #234689

Gostaria de um exemplo em Delphi, para procurar nomes de valores no registro.
Eu preciso alterar as opções para vários micros:
POP3 Server e SMTP Server para todas as contas de email dos programas, Outlook express e Microsoft Outlook.
Para uma conta só cadastrada deu certo, mas para cada conta adicionada, é criada uma nova pasta com outra numeração.
Como faço para procurar um nome de valor sem indicar o ´caminho´ do registro? Tentei usar o comando FOR, mas só funcionou para uma conta de email.
Exemplo do código que fiz:
function PopSmtp:string;
var
Reg: TRegistry;
i: Integer;
cChave : String;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;

{ Microsoft Outlook }
for i := 1 to 10 do
begin
cChave := ´SoftwareMicrosoftOfficeOutlookOMI Account ManagerAccounts000000´+IntToStr(i)+´´;
if Reg.KeyExists(cChave) then
begin
Reg.OpenKey(cChave,False);
Reg.WriteString(´POP3 Server´, ´xxx.xxx.x.x´);
Reg.WriteString(´SMTP Server´, ´xxx.xxx.x.x´);
end;
end;

Reg.CloseKey;
finally
Reg.Free;
end;

end;


Obrigado.