[aposi]

Con este codigo cargas la imagen y la guardas con el nombre que quieras

Código Delphi [-]
Jpg:= TJPEGImage.Create;
               try                  
                    Jpg.LoadFromFile(Ruta_origen+nombre +'.jpg');
                    proporcional(Jpg,500,500);                   
                    Jpg.SaveToFile(Ruta_destino+nombre +'.jpg');                   
               finally
                Jpg.Free;
               end;

la funcion proporcional la ajusta al tamaño que quieras

Código Delphi [-]
procedure Proporcional(Imagen: TGraphic; Ancho, Alto: Integer);
var
  Bitmap: graphics.TBitmap;
begin
  Bitmap:= graphics.TBitmap.Create;
  try
    if Imagen.Width < ancho then ancho := Imagen.Width;
    if Imagen.Height < alto then alto := Imagen.Height;
    if  (Ancho/Imagen.Width) < (Alto/Imagen.Height) then
      Alto:= Trunc((Ancho*Imagen.Height)/Imagen.Width)
    else
      Ancho:= Trunc((Imagen.Width*Alto)/Imagen.Height);
    Bitmap.Width:= Ancho;
    Bitmap.Height:= Alto;
    Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect,Imagen);
    Imagen.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;

end;