Следующий код выдавал ошибку при загрузке в компонент TImage jpg файла:
<pre><code class="lang-abap">FName := glSetup.AppPath + 'Covers\' + edtFileImage.Text.Trim;
if not TFile.Exists(FName) then
begin
 uf_WriteToLog('Файл обложки не найден. Файл',[FName]);
 Exit;
end;
ImgCover.Picture.LoadFromFile(FName);
</code></pre>
Ошибка:
JPEG error #53
Поменял код на этот:
<pre><code class="lang-abap">ImgCover.Picture.Bitmap.LoadFromFile(FName);
</code></pre>
Проблема решена.

Следующий код выдавал ошибку при загрузке в компонент TImage jpg файла:

```abap
FName := glSetup.AppPath + 'Covers\' + edtFileImage.Text.Trim;
if not TFile.Exists(FName) then
begin
  uf_WriteToLog('Файл обложки не найден. Файл',[FName]);
  Exit;
end;
ImgCover.Picture.LoadFromFile(FName);
```

Ошибка:

JPEG error #53

Поменял код на этот:

```abap
ImgCover.Picture.Bitmap.LoadFromFile(FName);
```

Проблема решена.

Delphi: JPEG error #53