Выбор из combobox и открытие файла

above92

расскажите как выбрать какой-нибудь item из ComboBox и по нажатию кнопки "открыть" открыть этот файл
procedure TForm18.BitBtn1Click(Sender: TObject);
begin
case combobox1.ItemIndex of
0: ShellExecute(Application.Handle,PChar('open'),
PChar('2018.xlsx'), PChar(0), nil, SW_NORMAL);
 
1: ShellExecute(Application.Handle,PChar('open'),
PChar('2017.xlsx'), PChar(0), nil, SW_NORMAL);
 
2: ShellExecute(Application.Handle,PChar('open'),
PChar('2016.xlsx'), PChar(0), nil, SW_NORMAL);
end;
end;
1 ответ

above92

вместо '2016.xlsx' написано Combobox.Text без кавычек