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

procedure TForm1.ffnen1Click(Sender: TObject);
var    jpeg: TJPEGimage;
begin
  openDialog1.DefaultExt := '.jpg,.bmp';
  OpenDialog1.Filter := 'Jpeg oder Bitmap (*.jpg,*.bmp)|*.jpg;*.bmp';
  OpenDialog1.Options := [ofOverwritePrompt, ofFileMustExist, ofHideReadOnly ];
  jpeg:= TJPEGimage.create;
  if opendialog1.Execute then
        try
           Image1.picture.LoadFromFile(OpenDialog1.FileName);
        finally
        jpeg.free
  end;
end;					

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

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EInvalidGraphic aufgetreten. Meldung: 'Bitmap ist ungültig'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK   Hilfe   
---------------------------					

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

begin
  saveDialog1.DefaultExt := '.jpg';
  saveDialog1.Filter := 'Jpeg (*.jpg)|*.jpg';
  if savedialog1.Execute then
    begin
      if FileExists(SaveDialog1.FileName+'.jpg') then
          begin
                if messagedlg('Vorhandene Datei überschreiben?',mtwarning, [mbyes,mbno],7) = mryes
                then image1.picture.bitmap.savetofile(SaveDialog1.FileName+'.bmp');
          end
      else
        begin
          image1.picture.bitmap.savetofile(savedialog1.FileName+'.jpg');
        end;
    end;
end;