Descobrir a Versão do Windows em delphi

Pessoal seque exemplo de como descobrir a versão do windows que sua aplicação está rodando.

TVersaoWindows = (vw95, vw98, vwNT, vw2000, vwXP, vwVista);

function GetVersaoWindows:TVersaoWindows;
var
verInfo: TOsVersionInfo;
S : string;

begin
Result := vw95;

verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);

if GetVersionEx(verInfo) then
begin
S := 'Windows ';

case verInfo.dwPlatformId of
VER_PLATFORM_WIN32s : Result := vw95;
VER_PLATFORM_WIN32_WINDOWS: Result := vw98;
VER_PLATFORM_WIN32_NT : Result := vwNT;
end;

if verInfo.dwMajorVersion = 5 then
begin
if verInfo.dwMinorVersion = 0 then
Result := vw2000
else
Result := vwXP;
end
else
if verInfo.dwMajorVersion = 6 then
Result := vwVista
end;

end;