[[seoane]]

Prueba con algo como esto:

Código Delphi [-]
function is_x86: Boolean;
begin
  Result:= AnsiSameText(GetEnvironmentVariable('PROCESSOR_ARCHITECTURE'),'x86');
end;

// Por ejemplo
if is_x86 then
  ShowMessage('32-bit')
else
  ShowMessage('64-bit');