Source position: synedit.pp line 166
type TPaintEvent = procedure(
Sender: TObject;
ACanvas: TCanvas
) of object;