This event is intended to pass string to the Sender.

TGetStrEvent = procedure (Sender: TObject; var S: string) of object;