[Lazarus] IsAccel bug?

[Hans-Peter Diettrich]

Mattias Gaertner schrieb:
> Hans-Peter Diettrich <DrDiettrich1 at aol.com> hat am 17. November 2011 um 
> 09:33 geschrieben:
> 
>  > 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
> 
>  
> 
> Yes, which is another ampersand (&&). So it deletes both ampersands.

Right :-)

DoDi