Problema de escala de imagen de Delphi

función Imgcompression(fileAdd: string; Ancho, Alto, Calidad: Entero):

var

jpg: TJpegImage

bmp: TBitmap

var

p>

comenzar

intentar

Resultado: = Falso

si FileAdd = ' ' luego Salir

bmp: = TBitmap.Create

jpg := TJpegImage.p>

prueba

jpg.LoadFromFile (FileAdd);

bmp. Alto: = Alto;

bmp.Width: = Ancho

bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect; , jpg). ClipRect, jpg);

jpg.Assign(bmp);

jpg.CompressionQuality:= Calidad

jpg.Compress; > jpg.SaveToFile( fileApplication).SaveToFile( fileAdd);

Resultado: = Verdadero

excepto

Resultado: = Falso

final;

finalmente

jpg.Gratis;

bmp.Gratis

final Gratuito; > fin;

fin