Jak wykryć wersję Windows na podstawie Rejestru

Wstaw na formę: Buttona
W sekcji uses dodaj moduł: Registry

Zdarzenie dla Buttona:

procedure TForm1.Button1Click(Sender: TObject);

 var
  Reg: TRegistry;
  Ver_Win: String;

 begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion',True);
  Ver_Win := Reg.ReadString('ProductName');
  if Ver_Win = '' Then
   Begin
    Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion',True);
    Ver_Win := Reg.ReadString('ProductName');
   end;
   Canvas.TextOut(40, 20, Ver_Win);
  Reg.Free;
 end;