Сжатие изображений

[brain22]

if jpg.Height > jpg.Width then scale := 800 / jpg.Height
else scale := 800 / jpg.Width;
bmp:= Tbitmap.Create;
bmp.Width := Round( jpg.Width * scale );
bmp.Height:= Round( jpg.Height * scale );
bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
jpg.Assign( bmp );

кто-нибудь может объяснить, что делает этот код?

[BDA]

Выбирает такой масштаб, чтобы самая большая сторона изображения была 800 пикселей.
Затем "рисует" на канве bmp изображение с выбранным уменьшением.
Потом опять "засовывает" изображение в jpg.