Si revisas un poco el código fuente que viene con Delphi, puedes encontrar cosas como estas:
Código Delphi
[-]
...
sValue :=
{$IFDEF MSWINDOWS}
'Windows'
{$ENDIF}
{$IFDEF ANDROID}
'Android'
{$ENDIF}
{$IFDEF LINUX}
'Linux'
{$ENDIF}
{$IFDEF MACOS}
{$IFDEF IOS}
{$IFDEF CPUARM}
'iOS Device'
{$ELSE}
'iOS Emulator'
{$ENDIF}
{$ELSE}
'OS X'
{$ENDIF}
{$ENDIF}
...
żEs eso lo que necesitas?