Source position: tastyles.pas line 87
type TAddStyleToLegendEvent = procedure(
AStyle: TChartStyle;
ASeries: TObject;
var AddToLegend: Boolean
) of object;