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

function IsXP: Boolean;
var
  OS: TOSVERSIONINFO;
begin
  OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
  GetVersionEx(OS);
  Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
    (OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
end;					

1:
2:

If IsXP
  Then ShowMessage('Es ist das Betriebssystem Windows XP installiert');