desde excel

[Max_E.]

hola a todos :

aun intento realizar el paso de datos desde un archivo excel a la base de datos de mi aplicacion y esto es lo que intente hacer

Código SQL [-]
for i:=2 to Ndatos do
begin
nom:=excel.Cells[i,2];
prec:=excel.Cells[i,3];
cant:=excel.Cells[i,4];
porc:=excel.Cells[i,5];
min:=excel.Cells[i,6];

query1.sql.text := Format('update medicinas set precio = %s, cantidad = %s, porcentaje = %s, minimo = %s where nombre = %s',[prec,cant,porc,min, QuotedStr(nom)]);
query1.Execsql;
end;

para lo que me sale un mensaje 'invalid use of keyword. token: , line number:1' y resalta la linea del ultimo end en los codigos

podrian hecharle un ojo y ver cual es el problema, les agradeceria mucho que me lo explicaran........