Не работает TJpegImage.Assign

[alexNiko]

Натолкнулся на странное поведение.
В основном потоке:

var
  img:TBitmap;
  jpg:TJpegImage;
...  
  len:=img.Width*img.Height;
  jpg:=TJPEGImage.Create;
  jpg.Assign(img);
  len1:=jpg.Height*jpg.Width;

Len и Len1 естественно больше 0 и равны.
А вот тот-же код в отдельном потоке не работает. Len как и должен быть, а Len1 равен 0.
Добавлял

  jpg.CompressionQuality:=100;
  jpg.Compress;

без изменений.
Код, засунутый в процедуру ведет себя точно так-же.
Подскажите в чем может быть проблема. Или библиотеку хорошего и быстрого сжатия Bitmap c минимальной потерей качества.
Пробовал zlib, но сжатие в 2-2.5 раза не устраивает. Jpeg дает около 30 раз.

[northener]

Сообщение от alexNiko

А вот тот-же код в отдельном потоке не работает.

А кто и когда разрешал в доппотоке работать с VCL?

[Slym]

https://yandex.ru/search/?text=intel...library&lr=213

http://www.delphimaster.ru/cgi-bin/f...1227604925&n=4