怎样用程序判断是Win98还是Nt?(50分)

各位大虾：
请问在程序中怎样判断系统是Win98还是Nt/Win2k?
最好给出例子。谢谢！

procedure TForm1.GetSysInfo;
var
PlatForm:String;
BuildNumber:Integer;
begin
case Win32PlatForm of
VER_PLATFORM_WIN32_WINDOWS:
begin
PlatForm:='Windows 98';
BuildNumber:=Win32BuildNumber and $0000FFFF;
end;
VER_PLATFORM_WIN32_NT:
begin
PlatForm:='Windows NT';
BuildNumber:=Win32BuildNumber;
end
else
begin
PlatForm:='Windows';
BuildNumber:=0;
end;
end;
if (Win32PlatForm = VER_PLATFORM_WIN32_WINDOWS) or (Win32PlatForm = VER_PLATFORM_WIN32_NT) then
begin
if Win32CSDVersion = '' then
lblSystem.Caption:=Format('%s %d.%d(Build %d)',[PlatForm,Win32MajorVersion,Win32MinorVersion,BuildNumber])
else
lblSystem.Caption:=Format('%s %d.%d(Build %d:%s)',[PlatForm,Win32MajorVersion,Win32MinorVersion,BuildNumber,Win32CSDVersion]);
end
else
lblSystem.Caption:=Format('%s %d.%d',[PlatForm,Win32MajorVersion,Win32MinorVersion]);
end;

用上面的应该能判断是98还是NT，别忘了给我分。好久没有来大富翁了，没想到一
上来就捡了一个便宜。

再次感谢！