Правильный путь к Program Files

const
WinVers = 'Software\Microsoft\Windows\CurrentVersion';

function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
 var
 registry: TRegistry;
 begin
 //если Windows NT, открываем другой ключ
 if ((GetVersion and $80000000)=0) and (Key_Open=WinVers) then
 Key_Open:='SOFTWARE\Microsoft\Windows NT\CurrentVersion';
 Registry := TRegistry.Create;
 try
 Registry.RootKey := Root_Key;
 Registry.OpenKey(Key_Open, False);
 Result := Registry.ReadString(Key_Read);
 finally
 Registry.Free;
 end;
 //если ничего не найдено, выводим "невозможно определить"
 if Result<>EmptyStr then Result:=Key_read+': '+Result else Result:=Key_read+': невозможно определить';
 end;

WinInfo(HKEY_LOCAL_MACHINE,WinVers,'ProgramFilesDir')

Uses  Registry;

function GetProgramFilesDir: string;
 var
   reg: TRegistry;
 begin
   reg := TRegistry.Create;
   try
     reg.RootKey := HKEY_LOCAL_MACHINE;
     reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
     Result := reg.ReadString('ProgramFilesDir');
   finally
     reg.Free;
   end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
  ShowMessage(GetProgramFilesDir); // Показываем путь.
 end;

uses ShlObj;
function ProgramFilesPath: string;
begin
   SetLength(Result, MAX_PATH);
   SHGetSpecialFolderPath(0, PChar(Result), CSIDL_PROGRAM_FILES , True);
   SetLength(Result, StrLen(PChar(Result)));
end;