Error inesperado funcionaba bien

[joseapd603]

Buenas amigos, tengo este problema el sistemita que estoy haciendo funcionaba bien pero ahora de repente sate este error

No se puede encontrar la fila para su actualización: algunos valores han cambiado desde la ultima vez que se leyó.

la cuestion esta en que no he hecho ninguna modificacion para que este error salga.

para ser ma visual, tengo un formulario de buiblioteca donde hago los prestamos y desde ese formulario cuando presione guardar el agrega en la tabla de prestamo los datos bien, pero en el mismo boton guardar edito la tabla de libros para que en el campo cantidad de la tabla libros se reste 1 libro, el error da justo cuando hace el Post para hacer esa edicion. este es el codigo que tengo:

procedure TForm10.GUARDARClick(Sender: TObject);
begin

datasource1.DataSet.FieldByName('tipo').Value:=combobox1.Text;
datasource1.DataSet.FieldByName('cod_presta').Value:=edit1.Text;
datasource1.DataSet.FieldByName('ced_usu').Value:=edit2.Text;
datasource1.DataSet.FieldByName('cota_lib').Value:=edit3.Text;
datasource1.DataSet.FieldByName('fecha_presta').Value:=edit4.Text;
datasource1.DataSet.FieldByName('fecha_entrega').Value:=edit5.Text;
datasource1.dataset.Post;
datasource1.DataSet.Refresh;

datasource2.DataSet.First;
datasource2.DataSet.Locate('cota',edit3.Text,[loCaseInsensitive, loPartialKey]);
datasource2.DataSet.Edit;
datasource2.DataSet.FieldByName('cantidad').Value:=datasource2.DataSet.FieldByName('cantidad').Value-1;
datasource2.DataSet.Post;
datasource2.DataSet.Refresh;
desabilitar;
end;

agradeseria toda la ayuda y sugerencias presentadas.