TSlideEvent = procedure (Sender: TObject; SlideIndex: Integer; const SlideImageURL: String) of object