Reference GetPlatform

Returns the operating system family the program is running on. On Windows versions prior to Vista platformWindowsXP is returned.

function GetPlatform: TPlatform;