Создаю динамически TImage и загружаю ему изображение с галереи. Я хочу что бы у компоненты был такой же размер как у загруженного изображения, и если изображения больше определенного размера нужно уменьшит размеры TImage но сохраняя пропорции изображения. WrapMode у компоненты Stretch. Как это сделать?