Guardad Canvas De Un Image Con La propiedad stretch:=true

[[escafandra]]

Prueba a ver si esto te sirve, es la traducción mas o menos de aquello:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 var
   R: TRect;
   Image: TImage;

begin
   Image := TImage.Create(Self);

   // Aquí dimensionamos la nueva imagen....
   Image.Height := 100;
   Image.Width  := 100;

   // Preparamos para la función StretchDraw
    R.Left := 0;
    R.Top := 0;
    R.Bottom := Image.Height;
    R.Right := Image.Width;

   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   // Image1 esta definida en tiempo de diseño....
   Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);

   // La salvamos para ver que ha pasado. ....EURECA....
   Image.Picture.Graphic.SaveToFile('a.bmp');

end;

Saludos.

[gulder]

escafandra hola como estas espero que bien lo logre pero modificando esto

Código Delphi [-]
   // Aquí dimensionamos la nueva imagen....
   Image.Height := 100;
   Image.Width  := 100;

Código Delphi [-]
  // Aquí dimensionamos la nueva imagen....
   Image.Height :=  Image1.Height;
   Image.Width  :=  Image1.Width;

asi quedo entonce saludos

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 var
   R: TRect;
   Image: TImage;

begin
   Image := TImage.Create(Self);

   // Aquí dimensionamos la nueva imagen....
   Image.Height :=  Image1.Height;
   Image.Width  :=  Image1.Width;

   // Preparamos para la función StretchDraw
    R.Left := 0;
    R.Top := 0;
    R.Bottom := Image.Height;
    R.Right := Image.Width;

   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   // Image1 esta definida en tiempo de diseño....
   Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);

   // La salvamos para ver que ha pasado. ....EURECA....
   Image.Picture.Graphic.SaveToFile('a.bmp');

end;

saludos y gracias a clubdelphi chauuu