Registry Lesen und Schreiben Win 7 64 Bit

[MCOP2001DE]

Hallo

ich sitzt jetzt schon seid 2 Wochen daran ein Projekt auch 64bit Fähig zu machen.
Mein Problem ist das die Daten nicht aus der Registry gelesen werden.

mein Code ist

Code:

begin
 with TRegistry.Create do
   begin
     try
       RootKey := HKEY_LOCAL_MACHINE;
       if OpenKey('\SOFTWARE\Moeller Computer\MED Base\', false) then
       begin
        MyUser := ReadString('Users');                         // Zeilen werden übersprungen
        MyPassword := ReadString('Password');
        MyDatabasename := ReadString('Database');
        Myservername := ReadString('Server');
        MyWorkstationName := ReadString('Workstation');
        CloseKey;
       end;                                                    // wird wieder bearbeitet
    finally
     Free;
    end;
   end;
  with TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY) do
   begin
     try
       RootKey := HKEY_LOCAL_MACHINE;
       if OpenKey ('\Software\Moeller Computer\MED Base\', false) then
       begin
        MyUser := ReadString('Users');
        MyPassword := ReadString('Password');
        MyDatabasename := ReadString('Database');
        Myservername := ReadString('Server');
        MyWorkstationName := ReadString('Workstation');
        CloseKey;
       end;
    finally
       free;
     end;
   end;

    Verbindung_Herstellen;
end;

2. gibt es eine Möglichkeit das beim schreiben in die Registry die Admin-Rechte vom Programm zugewiesen werden?

Mcop2001de