ADODataSet4.fieldvalues salta error

[Otei]

Buenas, yo tengo este codigo

procedure TADMIMENU.DELClick(Sender: TObject);
var
sql4 :string;
begin
if tabsheet3.Visible = true then
begin
sql4 := 'Select * from libros where cod_libro = ' + '''' + edit17.text + '''';
admimenu.adodataset4.CommandText := sql4;
admimenu.adodataset4.Open;
(aqui salta y pega el error)
admimenu.ADODataSet4.FindFirst;
admimenu.ADODataSet4.Edit;
admimenu.ADODataSet4.fieldvalues['disponible'] := 'SI';
admimenu.ADODataSet4.Append;
admimenu.adodataset4.Refresh;
admimenu.ADODataSet3.Delete;
admimenu.ADODataSet3.Refresh;
admimenu.ADODataSet3.FindFirst;
moverdatos43;
end
end;

y me da este error-> Project project1.exe raised exception class EOleException with message 'No coiciden los tipos de datos en la expression de criterios'. Process stopped. Use Step or Run to continue.

La cosa es q no se porque me salta, pone q no coinciden los datos pero nose, he probado a meterle strtoint al edit pero na, nose me salta, si le quito lo del adodataset4 va bien, pero esq tiene q ponerse en disponible SI. uffff nose, igual es alguna tonteria q he pasao por alto pero no se me tiene loco esto.

Gracias.