e-mail adresse aus outlook auslesen

[meama]

hallo,
kann mir jemand sagen, wie ich mit delphi 6 eine e-mail adressen aus outlook auslesen kann??
ich hab mal gegoogelt und folgenden code gefunden

Delphi-Quellcode:

reg.RootKey := HKEY_CURRENT_USER; 
//1. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000001', false); 

EMailaddy.text := reg.ReadString ('SMTP Email Address'); 
Username.Text := reg.ReadString ('SMTP Display Name'); 
Smtp.Text := reg.ReadString ('SMTP Server'); 
pop3.Text := reg.ReadString ('POP3 Server'); 
login.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//2. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000002', false); 

EMailaddy2.text := reg.ReadString ('SMTP Email Address'); 
Username2.Text := reg.ReadString ('SMTP Display Name'); 
Smtp2.Text := reg.ReadString ('SMTP Server'); 
pop32.Text := reg.ReadString ('POP3 Server'); 
login2.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//3. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000003', false); 

EMailaddy3.text := reg.ReadString ('SMTP Email Address'); 
Username3.Text := reg.ReadString ('SMTP Display Name'); 
Smtp3.Text := reg.ReadString ('SMTP Server'); 
pop33.Text := reg.ReadString ('POP3 Server'); 
login3.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//4. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000004', false); 

EMailaddy4.text := reg.ReadString ('SMTP Email Address'); 
Username4.Text := reg.ReadString ('SMTP Display Name'); 
Smtp4.Text := reg.ReadString ('SMTP Server'); 
pop34.Text := reg.ReadString ('POP3 Server'); 
login4.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//5. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000005', false); 

EMailaddy5.text := reg.ReadString ('SMTP Email Address'); 
Username5.Text := reg.ReadString ('SMTP Display Name'); 
Smtp5.Text := reg.ReadString ('SMTP Server'); 
pop35.Text := reg.ReadString ('POP3 Server'); 
login5.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//6. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000006', false); 

EMailaddy6.text := reg.ReadString ('SMTP Email Address'); 
Username6.Text := reg.ReadString ('SMTP Display Name'); 
Smtp6.Text := reg.ReadString ('SMTP Server'); 
pop36.Text := reg.ReadString ('POP3 Server'); 
login6.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//7. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000007', false); 

EMailaddy7.text := reg.ReadString ('SMTP Email Address'); 
Username7.Text := reg.ReadString ('SMTP Display Name'); 
Smtp7.Text := reg.ReadString ('SMTP Server'); 
pop37.Text := reg.ReadString ('POP3 Server'); 
login7.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//8. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000008', false); 

EMailaddy8.text := reg.ReadString ('SMTP Email Address'); 
Username8.Text := reg.ReadString ('SMTP Display Name'); 
Smtp8.Text := reg.ReadString ('SMTP Server'); 
pop38.Text := reg.ReadString ('POP3 Server'); 
login8.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey; 


//9. Mailaddy 
reg.OpenKey ('Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\00000009', false); 

EMailaddy9.text := reg.ReadString ('SMTP Email Address'); 
Username9.Text := reg.ReadString ('SMTP Display Name'); 
Smtp9.Text := reg.ReadString ('SMTP Server'); 
pop39.Text := reg.ReadString ('POP3 Server'); 
login9.Text := reg.ReadString ('POP3 User Name'); 
reg.CloseKey;

da schreit mich mein delphi aber an dass es den bezeichner reg nicht kennt....was tun??
ich hoffe ihr könnt mir helfen