Win & Dos Versions Nummern abfragen.

[KodeZwerg]

Hallo, ich bastel gerade an einer About-Box und wollte als mini-Gimmick eine Oldstyle Windows und Dos Versions Angabe integrieren, also nichts Aufregendes wo einem zig Sachen über's OS erzählt wird sondern lediglich 2 Werte, wahrscheinlich in einem LED Look aber das tut hier nichts zur Sache.

Meine Frage relativ simpel,
bisher habe ich habe immer

Code:

Var WinVersion, DosVersion: Word;
    WinStr, DosStr: String;
//...
WinVersion := Windows.GetVersion and $0000FFFF;
WinStr := IntToStr(Lo(WinVersion))+'.'+IntToStr(Hi(WinVersion));
DosVersion := Windows.GetVersion shr 16;
DosStr := IntToStr(Hi(DosVersion))+'.'+IntToStr(Lo(DosVersion));

diesen Code benutzt, sollte ich meinen Code updaten für Delphi (Tokyo) oder ist das alles noch konform?