Asm/es

asm// Aquí va el código Assembler
  // Aquí va el código Assembler
END;

var
  intWert: Integer;
  intErgebnis : Integer;

begin
  intWert := ...;
  // es requerido por Lazarus/Free Pascal en los procesadores Intel x86:
  {$ASMMODE intel}
  asm// IntWert//asigna el valor de la variable IntWert al registro EAX// agregar el valor binario 110 (el decimal correspondiente es 6)// resta el valor decimal 2// asigna el contenido del registro EAX a la variable intErgebnis
    MOV EAX, intWert      // IntWert//asigna el valor de la variable IntWert al registro EAX
    ADD EAX, 110B         // agregar el valor binario 110 (el decimal correspondiente es 6)
    SUB EAX, 2            // resta el valor decimal 2
    MOV intErgebnis, EAX  // asigna el contenido del registro EAX a la variable intErgebnis
  END;
  ... := IntToStr(intErgebnis);
end;