Тип события со строковым параметром
TStringEvent = procedure(Sender: TObject; var Value: string) of object;