Du könntest alles bis zum ersten Semikolon kopieren und nachsehen, was da steht. Dementsprechend kannst Du dann in einem TImage das dazugehörige Bild anzeigen.
Delphi-Quellcode:
temp := Copy(DeinString, 1, Pos(';', DeinString) - 1);
if temp = 'CD' then
DeinImage.Picture.LoadFromFile(Bildpfad + 'CD.bmp')
else if temp = 'Buch' then
DeinImage.Picture.LoadFromFile(Bildpfad + 'Buch.bmp');
So in der Art, man könnte das noch eleganter machen, aber so ist es
IMHO verständlicher.