[lmikle]

Код:

const
  imgFiles : Array [0..1] Of String = ('File1.jpg','File2.bmp');

procedure TForm1.ComboBox1.Change(SEnder : TObject);
var
 AFileName : String;
begin
  If ComboBox1.ItemIndex <> -1 Then 
    Begin
      AFileName := ExtractFilePath(Application.ExeName) + imgFiles[ComboBox1.ItemIndex];
      Image1.Picture.LoadFromFile(AFileName);
    End;
end;

Это если все заранее известно. Если заранее кол-во картинко не известно, то надо сначала их найти, загрузить в массив в ComboBox, потом этот код будет работать почти без изменений.