result := '';
      lPath := '';
      lRregistry := TRegistry.Create (KEY_READ);
      lDienste := TStringList.Create;
      try
        regist.RootKey := HKEY_LOCAL_MACHINE;

        If regist.OpenKey('\SYSTEM\CurrentControlSet\Services', False) Then begin
          regist.GetKeyNames (lDienste);
          regist.CloseKey;
          end;

        for lIndex := 0 to lDienste.Count - 1 do
          if StrContains ('Firebird', lDienste [lIndex]) then begin
            If regist.OpenKey('\SYSTEM\CurrentControlSet\Services\' + lDienste [lIndex], False) Then begin
              lPath := regist.GetDataAsString ('ImagePath');
              regist.CloseKey;
              if (StrContains ('fbserver.exe', lPath)) or (StrContains ('firebird.exe', lPath)) then begin
                lPath := ExtractFilePath (lPath);
                lPath := StrReplace (lPath, '"', '');
                if StrEndsWith (lPath, '\bin\') then
                  result := Copy (lPath, 0, Length (lPath)-5);
                end;
              end;
            end;
      finally
        FreeAndNil (lDienste);
        FreeAndNil (lRregistry);
      end;