1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.ListBox1Click(Sender: TObject);
var s: string;
    a: byte;
Begin
     a:=0;
     while (a<ListBox1.Items.Count)             //hier sucht er, welches Item du
       and (ListBox1.Text<>ListBox.Items[a])    //ausgewählt hast
        do Inc(a);     

     case a of
       0: s:='Bild1.bmp';
       1: s:='Bild2.bmp';
       2: s:='Bild3.bmp';
         //usw.
     end;

     Image1.Picture.LoadFromFile(s);  // Image1 sei jetzt mal dein Bild, 
                                      // in dem sich was tun soll
end;