actualizar registros

[stand]

Hola, disculpen estoy haciendo una pequeña aplicacion que esta conectada a una base de datos, en el que la actualizacion de resgristros es la siguiente

Código SQL [-]
with DataModule2.query1.SQL do
          begin

            DataModule2.query1.SQL.Clear;
            DataModule2.query1.SQL.Add ('UPDATE Cliente  SET Nombre_cliente=:nc,Apellidos_cliente=:ac,Direccion_cliente=:dc,Telefono_cliente=:tc');
            DataModule2.query1.SQL.Add ('WHERE Id_cliente=:ic');

         
                DataModule2.query1.ParamBYName('ic').AsInteger := StrToInt(edit1.text);
             
            DataModule2.query1.ParamByName('nc').AsString := edit2.text;
            DataModule2.query1.ParamBYNAme('ac').AsString := edit3.text;
        DataModule2.query1.ParamByname('tc').AsInteger := StrToInt(edit4.text);        
            DataModule2.query1.ParamByName('dc').AsString :=edit5.text;
          
           
            DataModule2.query1.ExecSQL;
      
       end

aqui se actualizan los campos de nombre cliente, apellido,telefono, y direccion, con el id del cliente. Al momento de la ejecucion me sale un error interno de automatizacion Ole, me podrian decir que es lo que esta mal, estan mal las sentencias?