Процедура для Delphi XE7 (изменения размера jpg)

Нужна процедура работающая на XE7 
смена размера изображения 
тоесть было 600 на 600 пикселей
сделать допустим надо 100 на 100 пикселей.

Resize(1.jpg, 300, 300);