Как подгружать JPG-картинки, но чтобы они быстро отображались

procedure
 TForm1.FormCreate(Sender: TObject);
begin

  if
 Image1.Picture.Graphic is
 TJPEGImage then

  begin

    TJPEGImage(Image1.Picture.Graphic).DIBNeeded;
  end
;
end
;

Данный код заставляет явно и сразу декодировать jpeg, вместо того, чтобы делать это при отображении картинки

Другое по теме:

• Как работать с GIF файлами
• Получить размер GIF-картинки
• Изменить размер Jpeg и сохранить его в новый файл