问E2107操作数尺寸失配

EN

    function FastCharPos(const aSource : string; const C: Char; StartPos : Integer) : Integer;
    var
        L : Integer;
    begin
        //If this assert failed, it is because you passed 0 for StartPos, lowest value is 1 !!
      Assert(StartPos > 0);

        Result := 0;
      L := Length(aSource);
        if L = 0 then exit;
      if StartPos > L then exit;
      Dec(StartPos);
        asm
          PUSH EDI                 //Preserve this register

          mov  EDI, aSource        //Point EDI at aSource
          add  EDI, StartPos
                mov  ECX, L              //Make a note of how many chars to search through
                sub  ECX, StartPos
                mov  AL,  C              //and which char we want :Error -"E2107 Operand size mismatch"
        @Loop:
                cmp  Al, [EDI]           //compare it against the SourceString
          jz   @Found
          inc  EDI
                dec  ECX
                jnz  @Loop
          jmp  @NotFound
        @Found:
          sub  EDI, aSource        //EDI has been incremented, so EDI-OrigAdress = Char pos !
          inc  EDI
          mov  Result,   EDI
        @NotFound:

          POP  EDI
        end;
    end;

function FastCharPosNoCase(const aSource : string; C: Char; StartPos : Integer) : Integer;
var
  L                           : Integer;
begin
  Result := 0;
    L := Length(aSource);
  if L = 0 then exit;
    if StartPos > L then exit;
  Dec(StartPos);
    if StartPos < 0 then StartPos := 0;

  asm
            PUSH EDI                 //Preserve this register
            PUSH EBX
      mov  EDX, GUpcaseLUT

      mov  EDI, aSource        //Point EDI at aSource
            add  EDI, StartPos
            mov  ECX, L              //Make a note of how many chars to search through
      sub  ECX, StartPos

            xor  EBX, EBX
            mov  BL,  C              //:Error -"E2107 Operand size mismatch"
      mov  AL, [EDX+EBX]
        @Loop:
            mov  BL, [EDI]
      inc  EDI
      cmp  Al, [EDX+EBX]
            jz   @Found
      dec  ECX
      jnz  @Loop
      jmp  @NotFound
        @Found:
      sub  EDI, aSource        //EDI has been incremented, so EDI-OrigAdress = Char pos !
      mov  Result,   EDI
        @NotFound:

      POP  EBX
            POP  EDI
    end;
end;