Неудается открыть сохраненный .jpg (error #53)

[arhiepiskop]

Приложение открывает изображение (.bmp или .jpg), и пользователь можетт инвертировать картинку (в TImage) или поворачивать. При сохранении все проходит успешно, и файл появляется в папке и успешно открывается любой программой, а вот моей же - нет, пишет 'JPEG error #53'.

Вот листинг:

 


procedure TForm1.Button3Click(Sender: TObject); //открытие файла
var w,h:integer;
begin
if openpicturedialog1.Execute then Begin
If  (OpenPictureDialog1.FileName[length(OpenPictureDialog1.FileName)]='g')
 then  Begin
JPEGtoBMP(OpenPictureDialog1.FileName);
image1.Picture.Assign(bm);
end
else
image1.Picture.LoadFromFile( OpenPictureDialog1.FileName);

end;
cor;
bm.Free;
end;

procedure TForm1.JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
begin
jpeg := TJPEGImage.Create;
jpeg.CompressionQuality := 100;
jpeg.LoadFromFile(FileName);
bm := tbitmap.create;
bm.Assign(jpeg);
jpeg.Free;
end;



procedure TForm1.Button7Click(Sender: TObject);// Сохранение файла
begin
If SaveDialog1.Execute then
image1.Picture.SaveToFile(SaveDialog1.FileName+'.jpg');
end;

end.

Я так понимаю дело в неправильном сохранении? но как по другому? Пробовал через SavePictureDialog - тоже самое пишет...

[Аватар]

Надо полагать от того, что задано расширение jpg, картинка ни коим образом не имеет jpeg-формата, а всего лишь обычный bmp-формат. Для сохранения в jpeg-формате обратный процесс на TJPEGImage и сохранение с него

И bm.Free; - а если открывался bmp? И по хорошему объект создать и удалить должна вызывающая процедура