[Lazarus] IsAccel bug?

[Bart]

On 11/17/11, Hans-Peter Diettrich <DrDiettrich1 at aol.com> wrote:
> In forms.IsAccel I suspect an bug, which manifests in very rare cases only:
>
>    position := UTF8Pos(AmpersandChar, ACaption);
> This is the position of the &
>
> ...
>
>        UTF8Delete(ACaption, 1, position+1);
>
> This IMO removes the character *after* the ampersand, so that

Doesn't this remove all charactres starting at position 1 up to and
including the first char after the ampersand?

Bart