Hola.
Hace poco hice un programa para redimensionar imágenes y guardarlas en distintos formatos.
Te salvaste que estoy en la PC de escritorio y no en la note
Te dejo el código para que veas como se hace.
Código Delphi
[-]
procedure TFPrincipal.Redimensionar(var Img:TBitmap; Alto,Ancho:Integer);
var
BMP:TBitmap;
Rect:TRect;
begin
BMP:=TBitmap.Create;
BMP.Width:=Ancho;
BMP.Height:=Alto;
Rect.Left:=0;
Rect.Top:=0;
Rect.Right:=Ancho;
Rect.Bottom:=Alto;
BMP.Canvas.StretchDraw(Rect,Img);
Img.Assign(BMP);
BMP.Destroy;
end;
Saludos!
PD: si trabajaras con otro formato de imagen, por ejemplo JPGE, también sirve este código; solamente hay que convertir el formato después de redimensionarla.