Reducir el tamaño de una imagen

[pablopessoa]

bueno queria comentarles que segui probando y logre achicar la foto.. de una manera muy enroscada.. convierto el jpg a bitmap para poder modificar el tamaño y luego lo guardo como jpg otra ves.... pero eso me da dos problemas

1- la imagen pesa como bitmap.. por mas que la extension sea .jpg
2- se me corta la imagen.. es decir.. como la imagen era enorme.. no se ajusta a su nuevo tamaño, sino que me muestra el pedazo de foto que entre en la nueva resolucion. les muestro el codigo para que me digan... bueno en fin que me digan que soy un bruto :P


Jpg := TJpegImage.Create;
Jpg.LoadFromFile(ruta);
MyBMP := TBitmap.Create;
with MyBMP do
begin
Canvas.
Width := 640;
Height := 480;
Canvas.Draw(0,0,Jpg);
SaveToFile('c:\'+nombrefoto+'.jpg');
Free;
end;
JPG.FREE;

perdon por este post largo