[Alegun]

Тогда вам нужно обновлять список дисков, правда вот

TDriveComboBox implements a specialized combo box that displays all the drives available when the application runs.

но хотя можно так попробовать

Код:

type
  TNewDriveComboBox = class(TDriveComboBox) 
end;
...
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Drive: Char;
begin
  Drive := DriveComboBox1.Drive;
  TNewDriveComboBox(DriveComboBox1).BuildList;   // Вызываем защищенный метод родительского класса
  DriveComboBox1.Drive := Drive;
end;