#pas
function Max( X, Y: Integer ): Integer;
asm
  {$IFDEF F_P}
  MOV EAX, [X] // 14
  MOV EDX, [Y] // 14
  {$ENDIF F_P}
  CMP EAX, EDX // 3
  JGE @@exit      //16
  MOV EAX, EDX //10
@@exit:
end {$IFDEF F_P} [ 'EAX', 'EDX' ] {$ENDIF};