Dropdown list excel delphi

[DarkBlue]

Ahora estoy con la idea de poner dropdown list en excel pero a la hora de seleccionar sus valores me sale un error , lo que pasa es que no puedo acceder al dropdown list :S he visto los macros en excel y pone las siguentes propiedades


ActiveSheet.Shapes("Drop Down 2").Select
With Selection
.ListFillRange = "$B$4:$B$6"
.LinkedCell = "$C$4"
.DropDownLines = 8
.Display3DShading = False
End With

a lo que yo creo que debe de ser algo asi en delphi

Código Delphi [-]


procedure TForm5.Button2Click(Sender: TObject);
    var sheets,wb,xlapplication,ws:variant;
    listaencontrados:tstringlist;
    x,y:integer;
    z:extended;
begin
XLApplication:= CreateOleObject('Excel.Application');
XLApplication.WorkBooks.Open(FileName :='C:\'+'avalanch-vp1277-665-08'+'.xlsx', Password :='57-+@%*+090', ReadOnly := TRUE);
XLApplication.visible:=true;
 XLApplication.ActiveSheet.Unprotect('@%(05790¡$-');

    WB := XLApplication.ActiveWorkbook;
    sheets:=XLApplication.workbooks[1].Worksheets['hoja1'];
    sheets := XLApplication.Activesheet;
    y:=100;

    XLApplication.Range['a15','a15'].Value:='jk';
    XLApplication.Range['a16','a16'].Value:='jkff';
    XLApplication.Range['a17','a17'].Value:='jjhuk';




  for x:=0 to 10 do
    begin
   

    sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;
    seleccion:= sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;//ningun problema
    seleccion.ListFillRange['"$B$4:$B$6"'].select;//esto da error
    seleccion.ListFillRange.LinkedCell:= '"$C$4"';
  
    end;
  XLApplication.Activesheet.Shapes('Drop Down 1').Select;//esto me da error 

Gracias por su tiempo prometo estar pendiente de las publicaciones buen dia amigos!