[DarkBlue]

bueno para todos los perdidos que lleguen a este "hilo" les voy a decir como lo solucione bueno ahi va de nuevo todo el codigo

Código Delphi [-]

procedure TForm5.Button2Click(Sender: TObject);
    var sheets,wb,xlapplication,ws,seleccion,uno:variant;
 
    x: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'];
   

    y:=100;
    uno:=1;
    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;
    sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;
    sheets.DropDowns.Add(422.25, 219.75+(x*15), 60.75, 15.75).Select;

    end;
    seleccion:=sheets.DropDowns('Drop Down 2'); {seleccion es una variable de tipo de dato variant entonces supuse que 
devolvia una referencia al objeto dropdown que queria  como estuve jugando con las propiedades de un objeto  
clase tExcelworksheet y mas o menos asi eran algunos metodos }
seleccion.listfillrange:= '$B$4:$B$6';{ya que tenia la referencia me fije en el macro de excel las propiedades que usaba con el dropdown list 
 hablaba de esta manera el codigo del macro
   ActiveSheet.Shapes("Drop Down 3").Select
    With Selection
        .ListFillRange = "$A$15:$A$17"
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = False   }

mucha suerte espero que les sirva de algo y les ahorre tiempo