[fpc-pascal] Function to know if WIN is 32 or 64

[Marco van de Voort]

In our previous episode, Marcos Douglas said:
> > ? ?if (IsWow64Process(GetCurrentProcess, IsWow64)) then
> > ? ? Result := IsWow64
> > ? end;
> > ?FreeLibrary(hKernel32);
> > end;
> 
> Thanks Jeff, this also works and seems to be standard function to know
> if is a 32 or 64bits
> See http://msdn.microsoft.com/en-us/library/ms684139%28v=vs.85%29.aspx

IIRC Delphi.about.com has Delphi code for this.