Уменьшить высоту картинки

[Domovoy]

Проблема следующая : имею Jpeg картинку которая хранится в пер. Необходимо "урезать" или как неть сжать её по высоте.
Вот сжатие не помагает.

var
  jpg: TJpegImage;
begin
  jpg:=TJpegImage.Create;
  with jpg do
  begin
    Assign(image1.picture.graphic);
    CompressionQuality:=10;
    Compress;
    SaveToFile('C:\temp.jpg');
    free;
  end;
end;

Нужен мудрый совет.

[Domovoy]

Сорри сам дапёр Всё просто из jpg в bmp меняем и назад