>> И где ее найти?

uses
  ntdll, HsNtDef;


procedure TForm1.Button1Click(Sender: TObject);
var
  hK : HKEY;
  ObjectInfo : Pointer;
  ObjectInfoLength : ULONG;
  rc : NTSTATUS;
  ReturnedLength : ULONG;
begin
  RegOpenKeyEx( HKEY_CURRENT_USER, 'Software\Far\Editor', 0, KEY_ALL_ACCESS, hK );

  ObjectInfoLength := 16384;
  GetMem( ObjectInfo, ObjectInfoLength );
  try
    rc := NtQueryObject( hK, ObjectNameInformation, ObjectInfo, ObjectInfoLength, @ReturnedLength );
    if NT_SUCCESS( rc ) then
      with POBJECT_NAME_INFORMATION(ObjectInfo)^ do
        Caption := WideCharLenToString(Name.Buffer, Name.Length div SizeOf(WideChar));
  finally
    FreeMem( ObjectInfo );
    RegCloseKey( hk );
  end;
end;