1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function IsWOW64(MyHandle:THandle):Boolean;
var IsWow64Result:pBOOL;
Is_Wow64Process:function(Handle:THandle;var Res:pBOOL):BOOL;stdcall;
begin
Is_Wow64Process:=GetProcAddress(GetModuleHandle('kernel32'),'IsWow64Process');
if Assigned(Is_Wow64Process) then
  begin
  Is_Wow64Process(MyHandle,IsWow64Result);
   Result:=Boolean(IsWow64Result)
   end
else Result:=False
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Procedure MM(s: String);
begin
 Form1.Memo1.lines.add(s);
end;

//uses  ActiveX, Comobj,
function GetWin32_OSNameVersion : string;
var
  objWMIService : OLEVariant;
  colItems      : OLEVariant;
  colItem       : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;

  function GetWMIObject(const objectName: String): IDispatch;
  var
    chEaten: Integer;
    BindCtx: IBindCtx;
    Moniker: IMoniker;
  begin
    OleCheck(CreateBindCtx(0, bindCtx));
    OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker));
    OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result));
  end;

begin
  try
    objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2');
    colItems      := objWMIService.ExecQuery('SELECT * FROM Win32_OperatingSystem','WQL',0);
    oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
    if oEnum.Next(1, colItem, iValue) = 0 then
      result := Format('%s - %s',[colItem.Caption, colItem.Version]);
  except
    result := '?'
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MM(GetWin32_OSNameVersion);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Function GetSystemWow64Directory(lpBuffer:LPTSTR;uSize:Uint):uint; stdcall; 
external 'Kernel32.dll' name 'GetSystemWow64DirectoryW';

Function IsSysWOW64:Boolean;
var Buffer:Array[0..max_path] of Char;
begin
Result:=false;
If GetSystemWow64Directory(Buffer,max_path)<>0 Then result:=true;
end;

// Use: CheckBox2.checked:=   IsSysWOW64;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function Is64BitOS: Boolean;
type
  TIsWow64Process = function(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall;
var
  hKernel32 : Integer;
  IsWow64Process : TIsWow64Process;
  IsWow64 : BOOL;
begin
  Result := False;
  hKernel32 := LoadLibrary('kernel32.dll');
  if hKernel32 = 0 then RaiseLastOSError;
  try
    @IsWow64Process := GetProcAddress(hkernel32, 'IsWow64Process');
    if Assigned(IsWow64Process) then begin
      if (IsWow64Process(GetCurrentProcess, IsWow64)) then begin
        Result := IsWow64;
      end
      else RaiseLastOSError;
    end;
  finally
    FreeLibrary(hKernel32);
  end;
end;

// Use: CheckBox1.checked:=    Is64BitOS;