Source position: fpddcodegen.pp line 145
type TCodeEvent = procedure(
Sender: TObject;
Strings: TStrings
) of object;