Получить температуру ЦП

[Alex2009]

Вечер добрый!
Столкнулся с такой проблемой, пишу компонент который получает системную информацию компьютера, много чего уже реализовано, но вот столкнулся с получением температуры ЦП. Пробовал примеры из google на WMI переделать под код для компонента но не получаю в конечном результате ни какой информации об температуре ЦП.
Прошу помощи знатоков.

[BARNEY]

и это всё не работает?
http://chingachgook.net/delphi/tempe...na-delphi.html
http://www.programmersforum.ru/showthread.php?t=5420
http://www.delphikingdom.com/asp/vie...?catalogid=698

[Alex2009]

Нет, к сожалению не работает
Вот так пробовал записать в компонент.

function TSystemInfo.getCPUTemp:string;
var
  tmp1: byte;
  tmp2: byte;
  Temp: word; // 16-bit unsigned integer
  Temp1: integer;
  i:integer;
begin
  asm
	mov	cx,128    //decimal, poll busy flag max. 128 times
	mov	dx,$0295
@WaitReady1:
	in	al,dx
	and	al,128 //decimal
	jz	@ExitWait
	dec	cx
	jnz	@WaitReady1
@ExitWait:
 	mov	dx,$0295
	mov	al,78 // 78 dec. is the bank select register
	out	dx,al
	inc	dx
	mov	al,1 // select bank 1
	out	dx,al
	mov	dx,0295h
	mov	al,80 // 80 dec. is the temperature High register
	out	dx,al
	inc	dx
	in	al,dx // fetch temp Hi from 81 dec.
	shl	al,1
	mov	tmp1,al
	mov	dx,0295h
	mov	al,81 // 81 dec. is the temperature Low register
	out	dx,al
	inc	dx
	in	al,dx // fetch temp Lo from 82 dec.
	shr	al,7
	mov	tmp2,al
  // calculate reading
	xor	ah,ah
	xor	cx,cx
	mov	al,tmp1
	mov	cl,tmp2
	add	ax,cx
	shr	ax,1
  mov Temp,ax
  end;
  Temp1:=0;
  if (Temp>0) and (Temp<100) then
  begin
    for i:=0 to 3 do AverageTemp[i]:=AverageTemp[i+1];
    AverageTemp[4]:=Temp;
    if AverageTemp[0]=0 then for i:=0 to 3 do AverageTemp[i]:=AverageTemp[4];
    for i:=0 to 4 do Temp1:=Temp1+AverageTemp[i];
    Temp1:=round(Temp1 / 5);
  end;
  if Temp1<0 then Temp1:=0;
  if Temp1>65536 then Temp1:=0;

  Result:=IntToStr(Temp1);
  fProgramFilesDir:=result;
end;

Получаю ошибку privileged instruction как на скрине

[BARNEY]

У меня проект из http://www.programmersforum.ru/showthread.php?t=5420
прекрасно запустился и даже температуру показывает
может скажите на какай строчке ошибка?

[Alex2009]

Сообщение от BARNEY

может скажите на какай строчке ошибка?

Ошибка вылетает при добавлении компонента на форму.

[Alex2009]

Вот программа сделана для примера работы моего компонента "System Info.

Жду критики и идей в ЛС.