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