Compilacion 32 y 64 bit

[[escafandra]]

Para saber si tu app de 32bits corre en un entorno de 64bits:

Código Delphi [-]
function IsWow64(PID: DWORD): BOOL;
  type TISWOW64PROCESS = function(hProc: THANDLE; var bIsWow64: BOOL): BOOL; stdcall;
var
  _IsWow64Process: TISWOW64PROCESS;
  hProc: THANDLE;
begin
  Result:= false;
  _IsWow64Process:= GetProcAddress(GetModuleHandle('Kernel32.dll'), 'IsWow64Process');
  if @_IsWow64Process <> nil then
  begin;
    hProc:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);
    _IsWow64Process(hProc, Result);
    CloseHandle(hProc);
  end;
end;

También puedes comprobar el tamaño de los punteros en tiempo de ejecución.

Saludos.