Разрядность ОСи x86/x64

[Alter]

Таким образом

function Is64BitWin: Boolean;
var
  IsWow64Process: function(hProcess: THandle; out Wow64Process: Bool): Bool; stdcall;
  Wow64Process: Bool;
begin
  {$IF Defined(CPU64)}
  Result := True; // 64-битная программа запускается только на Win64
  {$ELSEIF Defined(CPU16)}
  Result := False; // Win64 не поддерживает 16-ти разрядные приложения
  {$ELSE}
  // 32-х битные программы могут работать и на 32-х разрядной и на 64-х разрядной Windows
  // так что этот вопрос требует дальнейшего исследования
  IsWow64Process := GetProcAddress(GetModuleHandle(Kernel32), 'IsWow64Process');

  Wow64Process := False;
  if Assigned(IsWow64Process) then
    Wow64Process := IsWow64Process(GetCurrentProcess, Wow64Process) and Wow64Process;

  Result := Wow64Process;
  {$IFEND}
end;

[GunSmoker]

Дал бы уж прямо ссылкой, чего уж там