After some further research the following might work. Will test it out.
function GetOfficeBitness(): String;
var
Bitness: String;
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Office\ClickToRun\Configuration', 'Platform', Bitness) then
begin
Result := Bitness...