type
  //это наш "class cracer"
  TNewDriveComboBox = class(TDriveComboBox)
end;

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