Как изменить размер изображения?

У меня есть изображение (500x500), но мне нужно изменить его размер до 200x200 и нарисовать его в TImage. Как добиться такого результата?

Примечание
Я знаю о свойстве Stretch в TImage, но хочу программно изменить размер изображения.