Определение битности ОС - Pascal

Всем привет! Кто знает, как определить битность системы в Pascal?

Листинг программы

uses
  windows;
begin
  winexec('wmic os get OSArchitecture /value',0);
end.

Объяснение кода листинга программы

Импортируется модуль windows, который вероятно содержит функции для взаимодействия с операционной системой Windows.
Выполняется блок кода, в котором вызывается функция winexec с двумя аргументами: строкой 'wmic os get OSArchitecture /value' и целочисленным значением 0.
В данном случае, функция winexec вызывает командную строку, которая запускает команду wmic для получения информации о битности операционной системы.
Результат выполнения команды выводится в командной строке, но не сохраняется в переменных программы.