Dropdown list excel delphi

[DarkBlue]

pues simplmente me dice que no soporta ese metodo para ese objeto variant osea que le estoy diciendo mal como acceder a la propiedad o no estoy adivinando el metodo correcto mientras que el macro en excel me dice esto

with selection
.ListFillRange = "$B$4:$B$6"
.LinkedCell = "$C$4"
.DropDownLines = 8
.Display3DShading = False
end

yo trato de imitar eso en el ciclo es mas, ni siquiera me deja selecionar el dropdownlist con la siguinete linea

XLApplication.Activesheet.Shapes('Drop Down 1').Select me dice que no esta soportado tal metodo para el objeto olevariant

espero puedan ayudarme