Eliminar registro

[Zakio14]

Pura vida foro!

Trabajo con Firebird
Tabla Aquiler
Campos Id_socio, id_pelicula, nombre_pelicula (No tienen llave primaria)
Tengo un Edti(Id)
Y un Boton(Eliminar) en este botón tengo el siguiente código

if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;

with Modulo.IBAlquiler do begin

Close;
SelectSQL.Clear;
SelectSQL.Add('SELECT * FROM Alquiler ');
SelectSQL.Add('Where ID_pelicula = :car');
ParamByName('car').AsTrimString := id.Text;
open;
Delete;
Refresh;
Close;
Modulo.IBTransaction1.CommitRetaining;
end;

La cosa es que me elimina todo lo que tengo en la tabla y no solo el registro que quiero.

Alguien me puede decir que estoy haciendo mal o algún comentario que me ayude hacer que funcione...

Se los agradezco

Mil millones de gracias