[Karsh]

Вот так при клике мышкой в листбоксе можно узнать текст выделенной строки:

Код:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  x: Integer;
  s: string;
begin
  x:= ListBox1.ItemIndex;
  if x < 0 then exit;
  s:= ListBox1.Items[x];
  ShowMessage(s);
end;

вмечто "ShowMessage(s);" можно подставить код сравнения строки S и показа картинки.