Source position: uibsqlparser.pas line 98
type TOnComment = procedure(
sender: TObject;
const comment: string;
style: TCommentStyle
) of object;