procedureTForm1.FormCreate(Sender: TObject); begin
if
Image1.Picture.Graphic is
TJPEGImage then
begin
TJPEGImage(Image1.Picture.Graphic).DIBNeeded; end
; end
;
Данный код заставляет явно и сразу декодировать jpeg, вместо того, чтобы делать это при отображении картинки