Reducir el tamaño de una imagen

[[cHackAll]]

Hola pablopessoa, por favor utiliza las etiquetas [delph¡] Tu codigo aquí [/delphi]

Código Delphi [-]
uses jpeg;
 
procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; jpg: TJPEGImage;
begin
 jpg := TJPEGImage.Create;
 jpg.LoadFromFile('c:\windows\web\wallpaper\cazador.jpg');
 bmp := TBitmap.Create;
 bmp.Assign(jpg);
 bmp.Width := 640;
 bmp.Height := 480;
 jpg.Assign(bmp);
 bmp.Destroy;
 jpg.SaveToFile('c:\2.jpg');
 jpg.Destroy;
end;

Si quieres una imagen que no pierda su relacion de aspecto que sea sencilla y de conversion rápida, manejandolo como thumbnail, puedes usar lo dicho aquí asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var Image: TBitmap;
begin
 Image := GetImage('ClubDelphi.jpg', 640);
 if Assigned(Image) then
  begin
   Image1.Picture.Assign(Image);
   Image.Destroy;
  end;
end;

Saludos