[AND_REY]

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Image1.Visible:= False;
 Image2.Visible:= False;
 Image3.Visible:= False;
 Case ComboBox1.ItemIndex of
  0: Image1.Visible:= True;
  1: Image2.Visible:= True;
  2: Image3.Visible:= True;
 end;
end;