Вывести младшее слово через переменную [Delphi + Assembler]

Формулировка задачи:

Здравствуйте. Не могу вывести младшие слово из аккумулятора в переменную.Заранее благодарю. Компилятор говорит, не совместимы mov a,ax

unit Assembler;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
 var  
  a: integer;
 begin
  asm

   mov eax,16777216
   bswap eax
   mov a,ax
 
  end;
  ListBox1.Items.Add(IntToStr(a)+' Г‘Г®Г¤ГҐГ°Г¦ГЁГ¬Г®ГҐ ГїГ·ГҐГ©ГЄГЁ ');

end;
 
end.

Решение задачи: «Вывести младшее слово через переменную [Delphi + Assembler]»

textual
                            Листинг программы 
                        
                            var  a: smallint;