[aggg63]

Tema solucionado.

Antes de hacer nada hay que ejecutar

ZConsultaBD.SQL.Text('BEGIN');
ZConsultaBD.Open;

NO vale

ZConexion.StartTransaction;

Y finalmente

ZConsultaBD.SQL.Text('COMMIT');
ZConsultaBD.Open;

Gracias.