procedure TForm1.Button1Click(Sender: TObject);

Var

    OSVI:OSVERSIONINFO;

begin

    OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO);

    GetVersionEx(OSVI);

    Caption:=IntToStr(OSVI.dwMinorVersion)+‘,‘

    +IntToStr(OSVI.dwMinorVersion)+‘,‘

    +IntToStr(OSVI.dwBuildNumber)+‘,‘

    +IntToStr(OSVI.dwPlatformId)+‘,‘

    +OSVI.szCSDVersion;

end;