Source position: jvoutlookbar.pas line 226
type TOutlookBarEditCaption = procedure(
Sender: TObject;
var NewText: string;
Index: Integer;
var Allow: Boolean
) of object;