[ryderx34]

если СomboBox, то полагаю возможные варианты уже вписаны в Items
вот вариант:

Код:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of  // если вариант из Items
  0: Image1.Picture.LoadFromFile('file_0.bmp');
  1: Image1.Picture.LoadFromFile('file_1.bmp');
  2: Image1.Picture.LoadFromFile('file_2.bmp');
  else  // если другая картинка (из папки где лежит программа)
    if FileExists(ExtractFilePath(Application.ExeName) + ComboBox1.Text + '.bmp') then
      Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + ComboBox1.Text + '.bmp');
  end;
end;