Registry bei Windows 7 32bit mit Delphi 2009 auslesen

[Luckie]

Delphi-Quellcode:

procedure foo;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('hardware\devicemap\serialcomm', False)then
    begin
      // ...;
      // ...;
      reg.CloseKey
    end
    else
      RaiseLastOSError;
  finally
    reg.Free;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
   try
     foo;
   except
     on e: Exception do
       ShowMessage(e.Message);
   end;
end;