Declaração da procedure:
procedure setScaleImage(escala: TJPEGScale; const origem, destino: string);

Código:
Uses: Jpeg

procedure setScaleImage(escala: TJPEGScale; const origem, destino: string);
var objJpeg : TJpegImage;
    objbmp: TBitMap;
begin
  objJpeg := TJPegImage.Create;
  objJpeg.LoadFromFile(origem);
  objJpeg.Scale := escala;
  objbmp := TBitmap.Create;
  objbmp.Assign(objjpeg);
  objJpeg.Assign(objbmp);
  objjpeg.SaveToFile(destino);
  objJpeg.Free;
  objbmp.Free;
end;

Como utilizar:
setScaleImage(jsHalf,'c:\activedelphi\imagens\imagem.jpeg', 'c:\activedelphi\imagens\imagemnova.jpeg');

Espero que seja útil para vocês também.

Abraços,

Gustavo Frassini