if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;
with Modulo.IBAlquiler do begin
Close;
SelectSQL.Text:= 'Delete * FROM Alquiler Where ID_pelicula = :car';
ParamByName('car').AsTrimString := id.Text;
ExecSQL;
Modulo.IBTransaction1.CommitRetaining;
end;