SwapValues

    procedure SwapValues(var X, Y); assembler;
    begin
      asm
        mov EAX, Y
        mov EBX, X
        mov Y, EBX
        mov X, EAX
      end;
    end;

    procedure SwapValues2(var X, Y); assembler;
    asm
      push EAX
      push EBX
      mov EAX,&Y
      mov EBX,&X
      mov &Y,EBX
      mov &X,EAX
      pop EAX
      pop EBX
    end;

// WHY YOU NO WORK???