unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}
function GetCpuSpeed: Comp;
 { function to return the CPU clock speed only.                                     }
 { Usage: MessageDlg(Format('%.1f MHz', [GetCpuSpeed]), mtConfirmation, [mbOk], 0); }
 var 
   t: DWORD;
   mhi, mlo, nhi, nlo: DWORD;
   t0, t1, chi, clo, shr32: Comp; 
 begin
   shr32 := 65536; 
   shr32 := shr32 * 65536; 
 
   t := GetTickCount;
   while t = GetTickCount do begin end; 
   asm 
     DB 0FH
     DB 031H 
     mov mhi,edx 
     mov mlo,eax 
   end;
 
   while GetTickCount < (t   1000) do begin end;
   asm
     DB 0FH
     DB 031H 
     mov nhi,edx
     mov nlo,eax 
   end; 
 
   chi := mhi; 
   if mhi < 0 then chi := chi   shr32; 
 
   clo := mlo;
   if mlo < 0 then clo := clo   shr32; 
 
   t0 := chi * shr32   clo;
 
   chi := nhi; 
   if nhi < 0 then chi := chi   shr32;
 
   clo := nlo; 
   if nlo < 0 then clo := clo   shr32; 
 
   t1 := chi * shr32   clo; 
 
   Result := (t1 - t0) / 1E6; 
 end;
     procedure TForm1.Button1Click(Sender: TObject);
begin
  caption:=floattostr(GetCpuSpeed)
end;    end.