procedure TForm1.Button1Click(Sender: TObject);
var rg:tregistry;
    skey,s:string;
begin        rg:=tregistry.create;
    rg.RootKey:=HKEY_LOCAL_MACHINE;
    skey:='HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0';
    if rg.KeyExists(skey) then 
    begin
       rg.openkey(skey,true);
       s:=rg.ReadString('ProcessorNameString');
       rg.closekey;
       showmessage(s);
    end;
    rg.free;    end;