{********************************************************}
{                   Delphi World ©                       }
{           Выпуск 2002 - 2003                           }
{           Автор проекта:   ___Nikolay                  }
{           E-mail: DelphiWorld@mail.ru                  }
{********************************************************}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, CpuId,
  StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 cpu: TCpuData;
 Family, Model, Stepping: byte;
begin
 with StringGrid1 do
 begin
   Cells[0, 0] := 'Параметр';
   Cells[1, 0] := 'Значение';

   Cells[0, 1] := 'GetVendorString';
   Cells[1, 1] := cpu.GetVendorString;

   Cells[0, 2] := 'IntelP5N';
   Cells[1, 2] := cpu.IntelP5N;

   Cells[0, 3] := 'IntelP6N';
   Cells[1, 3] := cpu.IntelP6N;

   Cells[0, 4] := 'GenericCpuN';
   Cells[1, 4] := cpu.GenericCpuN;

   Cells[0, 5] := 'GetCPUFrequency';
   Cells[1, 5] := IntToStr(cpu.GetCPUFrequency);
 end;
end;

end.