Тип архитектуры компьютера делфи

[Катерина19]

function Is64bitAvail:BOOL;assembler;
asm
  mov eax, $80000001
  cpuid
  mov eax, 1
  shl eax, 29
  and edx, eax
  mov eax, edx
end;

function Is32bitAvail:BOOL;assembler;
asm
  mov eax, $8001
  cpuid
  mov eax, 1
  shl eax, 29
  and edx, eax
  mov eax, edx
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Is64bitAvail then m3.Text:='586'
else m3.Text:='386';
end;

При запуске показывает ошибку. помогите исправить

[Stilet]

Ща, подожди включу Delphi Telepato.BRED, прогоню твой код... Пока кофуйка поппей.

[Катерина19]

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

Ща, подожди включу Delphi Telepato.BRED, прогоню твой код... Пока кофуйка поппей.

Код программы!

[Stilet]

Текст ошибки в студию, а так же пройдись отладчиком, выяснив на какой строке ошибка. Не у всех есть Делфи.

[Катерина19]

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

Текст ошибки в студию, а так же пройдись отладчиком, выяснив на какой строке ошибка. Не у всех есть Делфи.

(m3- это Memo3)

[Stilet]

m3- это Memo3

Тогда лучше

m3.lines.Append('586');

[Катерина19]

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

Тогда лучше

m3.lines.Append('586');

Все равно выводит ошибку

[f.hump]

что случится если написать так

function Is64bitAvail:BOOL;assembler;
asm
  PUSH ecx

  mov eax, $80000001
  cpuid
  mov eax, 1
  shl eax, 29
  and edx, eax
  mov eax, edx

  POP ecx
end;

[Vapaamies]

Нужно EBX сохранять, не? Вызов CPUID вроде EBX разрушает, если не путаю.

[Катерина19]

Сообщение от f.hump

что случится если написать так

function Is64bitAvail:BOOL;assembler;
asm
  PUSH ecx

  mov eax, $80000001
  cpuid
  mov eax, 1
  shl eax, 29
  and edx, eax
  mov eax, edx

  POP ecx
end;

Выдает туже ошибку