На форме устанавливается компонент ComboBox1. При выполнении процедуры изображение получает свойство «видимое», «очищается» предыдущее содержимое компонентов для ввода значений t,v,s.
Происходит присвоение переменной s1 имени файла соответственно выбранному названию объекта с последующей загрузкой рисунка.
Procedure TForm1.ComboBox1Change(Sender: TObject);
begin
i:=0; Image1.Visible:=True; Image1.Left:=1;
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';
If ComboBox1.Text='Автомобиль' then s1:='1.jpg';
If ComboBox1.Text='Грузовик' then s1:='2.jpg';
If ComboBox1.Text='Трактор' then s1:='3.jpg';
If ComboBox1.Text='Мотоцикл' then s1:='4.jpg';
If ComboBox1.Text='Турист' then s1:='5.jpg';
If ComboBox1.Text='Яхта' then s1:='6.jpg';
If ComboBox1.Text='Корабль' then s1:='7.jpg';
If ComboBox1.Text='Самолет' then s1:='8.jpg';
If ComboBox1.Text='Вертолет' then s1:='9.jpg';
If ComboBox1.Text='Воздушный шар' then s1:='10.jpg';
If ComboBox1.Text='Робот' then s1:='11.jpg';
If ComboBox1.Text='Космический корабль' then s1:='12.jpg';
Image1.Picture.LoadFromFile('dris/'+s1);
end;