Saludos
Bienvenido al Club, te recomiendo la lectura de la guia de estilo, asi como el uso de las etiquetas. Todo esto lo puede encontrar en mi firma
El error esta en esta linea
DataModuleBD.Query.Open;
Para
Insercion, modificacion y eliminacion se debe usar ExecSql no Open, este ultimo solo para
Select