Error dbexpress y clientdatasets

[korinho90]

buenas hola ha todos
miren tengo que hacer un programa que elimine registros y el codigo lo tengo asi
cd.query1.close;
cd.query1.SQL.add('delete*from clilentes');
cd.query1.SQL.add('where id_cliente=:id');
cd.query1.Params[0].AsInteger:=strtoint(edit1.Text);
cd.query1.Prepare;
cd.query1.UnPrepare;
cd.query1.ExecSQL;
y pos si me elimina pero cuando quiero eliminar por segunda ves me marca error
quiero que me elimine cuantos quiera