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.listfillrange:= '$B$4:$B$6';
mucha suerte espero que les sirva de algo y les ahorre tiempo