ibsql1.sqltext := 'insert into tabla (llave, descripcion, monto) values :llave, :descripcion, :monto)';
clientdataset1.First;
while not clientdataset1.Eof do
begin
try
ibsql1.close;
ibsql1.params[0].asloquesea := clientedatset1....
ibsql1.params[1].asloquesea := clientedatset1....
ibsql1.params[2].asloquesea := clientedatset1....
ibsql1.ExecQuery;
except
end;
clientdataset1.Next;
end;