[Lazarus] IsAccel bug?

[Hans-Peter Diettrich]

Bart schrieb:
> 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?

Lacking any documentation I only can guess what UTF8Delete does :-(

DoDi