[Macrobot]

Приветствую всех. Друзья помогите справится с задачей. Надо чтоб при выборе в компоненте ComboBox менялась картинка в компоненте TImage
Как поменять цвет например самого обьекта form разобрался а как к картинкам привязать не пойму.
Картинки находятся в папке image

С изменением цвета код такой

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i: integer;
begin
i:=combobox1.ItemIndex;
case i of

 0: color:= clred;
 1: color:= clblue;
 2: color:= clgreen;
end;
end;
end.

Админ: Пользуемся тегами для оформления кода!

Впринципе разобрался. Но на сколько корректно подскажите.

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
    Image1.Picture.LoadFromFile('1.jpg')

  else if ComboBox1.ItemIndex = 1 then
    Image1.Picture.LoadFromFile('2.jpg')

  else if ComboBox1.ItemIndex = 2 then
    Image1.Picture.LoadFromFile('3.jpg')

  else if ComboBox1.ItemIndex = 3 then
    Image1.Picture.LoadFromFile('4.jpg')

   else if ComboBox1.ItemIndex = 4 then
    Image1.Picture.LoadFromFile('5.jpg')

 end;