Сделал с использованием "TBitmapCodecManager"
TBitmapCodecSaveParams *sp = new TBitmapCodecSaveParams();sp->Quality=70;
TBitmapSurface *bs = new TBitmapSurface();
bs->Assign(Image1->Bitmap);
TBitmapCodecManager::SaveToFile("1.jpg",bs,sp);
Ярослав может запилить типа маркета компонентов, с удовольствием бы покупал за разумную цену, многие замечал делают так удобно отсортировать все по категориям и выставить за денюжку, и всем хорошо, у людей и смысл был бы писать компоненты, и зарабатывать., и Delphi развивалась бы
Для таких целей просто нужно использовать TListView. ListBox будет тормозить, он не создан для больших списков.
Для вас отлично подойдет MultiDetailView. Он в Samples лежит.