Source position: bgraunicodetext.pas line 14
type TInsertCharEvent = procedure(
ASender: TObject;
AParagraphIndex: Integer;
ACharStart: Integer;
ACharCount: Integer
) of object;