Mit der Meldung würde ich das auch eher so schreiben:
Delphi-Quellcode:
procedure TForm7.speichern(Sender: TObject);
begin
try
Image1.Picture.Bitmap.SaveToFile('TestBitmap.bmp');
ShowMessage('Bild wurde gespeichert.');
except
ShowMessage('Bild konnte nicht gespeichert werden.');
end;
end;
Sonst zeigt er doch die Meldung auch an, wenn das Bild nicht ordnungsgemäß gespeichert wurde...