Conocer el tipo de Windows que se está utilizando y su versión.

procedure TForm1.Button1Click(Sender: TObject);
var
  versionSO:TOSVersionInfo;
  Cvalor:Cardinal;
  Evalor:Extended;

begin

  VersionSO.dwOSVersionInfoSize:=SizeOf(VersionSO);
  GetVersionEx(VersionSO);

// Versión
  StringGrid1.Cells[0,0]:='Versión';
  EValor:=VersionSO.dwMajorVersion;
  StringGrid1.Cells[1,0]:=Format('%2n',[EValor]);
// Plataforma
  StringGrid1.Cells[0,1]:='Plataforma';
  CValor:=VersionSO.dwPlatformId;
  case Cvalor of
    0 : StringGrid1.Cells[1,1]:='Sobre Windows 3.x';
    1 : StringGrid1.Cells[1,1]:='Sobre Windows 95/98';
    2 : StringGrid1.Cells[1,1]:='Sobre Windows NT/2000';
  end;