Regedit Windows 7 64

Pessoal, bom dia. Estou desenvolvendo um sistema em delphi 2010 em uma máquina com windows 7 64 bits e não consigo abrir uma a chave \SOFTWARE\Firebird Project\Firebird Server\Instances e pegar o valor de DefaultInstance. É uma rotina para ver se o firebird esta instalado na máquina. No Windows 7 32 bits funciona certo.Segue a função:
function TConexao.fnFireBirdStarted : String;var FReg : TRegistry;begin try FReg := TRegistry.Create; FReg.RootKey := HKEY_LOCAL_MACHINE; if FReg.OpenKey( '\SOFTWARE\Firebird Project\Firebird Server\Instances', False ) then Result := FReg.ReadString( 'DefaultInstance' ); finally FreeAndNil( FReg ); end;end;
procedure TForm1.Button1Click(Sender: TObject);begin if not fnFireBirdStarted then          ShowMessage( 'Não foi possivel abrir a chave' );end; 
Vlw;