Delphi. Как сделать, чтоб при выборе пункта в ListBox, для него выводилась соответсвующая картинка на форме?

Точно лень вспоминать, там у каждой строки ListBox есть свойство Object.
Туда черта лысого можно засунуть, хоть указатель, хоть длинное (или просто) целое.
Вот и используй. Я постоянно пользуюсь.
Возможность не совсем документированная.