Source position: db.pas line 255
type TFieldSetTextEvent = procedure(
Sender: TField;
const aText: string
) of object;