1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bild: TPicture;
begin
  Bild := TPicture.Create;
  OpenPictureDialog1.Execute;
  Bild.LoadFromFile(OpenPictureDialog1.FileName);
  Image1.Picture := Bild;
end;					

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

var
  oPicture: TJPEGImage;
  oBitmap: TBitmap;
...
  if OpenPictureDialog.Execute then
  begin
    if oPicture <> nil then           // Falls schon mal benutzt
      oPicture.Free;                  //   alte Instanz freigeben
    oPicture := TJPEGImage.Create;
    oPicture.LoadFromFile(OpenPictureDialog.Filename);
    Image.Picture.Assign(oPicture);   // JPeg direkt anzeigen: Read only   ...  aber  ...
    if oBitmap <> nil then            // Falls schon mal benutzt
      ooBitmap.Free;                  //   alte Instanz freigeben
    oBitmap := TBitmap.Create;      
    oBitmap.Assign(oPicture);
    Image.Picture.Assign(oBitmap);    // Via Bitmap anzeigen: Bild kann bearbeitet werden
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  if SavePictureDialog.Execute then
  begin
    if (oPicture = nil) or (oBitmap = nil) then       
      Exit;

    oPicture.Assign(oBitmap);                     // JPEG-Org. durch bearbeitetes Bitmap ersetzen
    oPicture.CompressionQuality := 100;           // Qualität 0 bis 100% 
    ...                                           // und ggf. andere Einstellungen
    oPicture.SaveToFile(SavePictureDialog.Filename);
  end;					

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

var
  Bitmap1: TBitmap;
  Bitmap2: TBitmap;
begin
  Bitmap1 := TBitmap.Create;
  Bitmap1.LoadFromFile('Test100x100.bmp');
  Bitmap2 := TBitmap.Create;
  Bitmap2.Width := Bitmap1.Width div 2;
  Bitmap2.Height := Bitmap1.Height div 2;
  Bitmap2.Canvas.StretchDraw(Rect(0,0,Bitmap2.Width-1,Bitmap2.Height-1),Bitmap1);
  Bitmap2.SaveToFile('Test50x50.bmp');
  Bitmap1.Free;
  Bitmap2.Free;
end;