Тип события со строковым списком
TStringListEvent = procedure(Sender: TObject; Value: TStrings) of object;