1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  J: TJpegImage;
  B: TBitmap;
begin
  J := TJpegImage.Create;
  J.LoadFromFile('C:\Stuff\Delphi.jpg');
  B := TBitmap.Create;
  B.Width := 100;
  B.Height := 100;
  B.Canvas.StretchDraw(B.Canvas.ClipRect, J);
  J.Assign(B);

  // Jetzt kannst du damit machen was du willst, z.B. speichern

  B.Free;
  J.Free;