TImageLoadedEvent = procedure (const Url, ImageData: string) of object;