请问，如何用代码来认别 Win98 和 Win Me

我现在可以认别出 Win9x 和 WinNt，WinMe 也算是 Win9x 中的，请问用什么办法可以
认别出 Win 9x 和 WinMe ???
以下是我所写的认别 Win9x 和 WinNt 的代码：(注：从网上 Copy 来的，看不太懂)function GetOs():Integer;
      //返回操作系统的类型
      //     1    Windows 9X
      //     2    Windows NT
      //`   -1    发生错误
var
  MyVersionInfo: TOSVersionInfo;
  MyReg: TRegistry;
begin
  Result := -1;
  MyReg := TRegistry.Create;
  Try
    MyReg.RootKey := HKEY_LOCAL_MACHINE;
    MyVersionInfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
    if GetVersionEx(MyVersionInfo) then
    begin
      if MyVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
      begin
        Result := 1;
      end
      else if MyVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
      begin
        Result := 2;
      end;
    end
    else
    begin
      Result := -1;
    end;
  finally
    MyReg.Free;
  end;
end;