Расширенный тип события со строковым списком
TStringListExtEvent = procedure(Sender: TObject; Value: TStrings; var Apply: boolean) of object;