Source position: gtkproc.pp line 607
procedure LabelFromAmpersands(
var AText: string;
var APattern: string;
var AAccelChar: Char
);