как определить тип чипсета??

[Spy]

Нужно написать мини прогу для определения типа чипсета!! замучался уже. Если кто знает где можно скачать исходник скажите, пожалуйста!!!

[Трофимов Александр]

procedure TForm1.Button1Click(Sender: TObject);
var
EBXstr,ECXstr,EDXstr: string[5];
begin
asm
mov eax,0
cpuid
mov eax,0
cpuid
mov dword ptr EBXstr+1,EBX
mov byte ptr EBXstr,4
mov dword ptr ECXstr+1,ECX
mov byte ptr ECXstr,4
mov dword ptr EDXstr+1,EDX
mov byte ptr EDXstr,4
end;
form1.Label1.Caption:=EBXstr+ECXstr +EDXstr;
end;

[Spy]

Большое спасибо!!!!!!!!!!!!!!!!