Как определить Серверную Систему ?

[user717]

Здравствуйте господа. Подскажите как определить Серверную систему? в Delphi 7.
Погуглил, нашел варианты определения версии системы (здесь ), но при использовании почему-то Win2003sp2 определяется как winXp64bit,win2008 определяется как Vista.
Другие варианты устарели, т.к. надо отличить сервер win2003server, win2008server, win2000server, от vista,windows7, xp_sp3. и др.
Подскажите пожалуйста как решить вопрос?

------------
Гулпый вопрос был =)..
сам отвечаю:

function OS:boolean;
var Reg:TRegistry;
    NameOS:string;
begin
  result:=true;
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion',false);
  NameOS:=Reg.ReadString('ProductName');
   if (pos('erver',NameOS)>0)  then
   begin
   result:=false;
   end;
  Reg.Free;
end;

Если кто знает другой способ, буду принателен.