Solo una pequeña observacion: el BeginTrans va fuera del Try, sino nunca salta.
Código:
Código Delphi
[-]
Begin.....
MyAdoConnection.BeginTrans;
TryMyAdoCommand.Connection := MyAdoConnection;
cSQL := 'INSERT INTO....'
MyAdoCommand.CommandText := cSQL;
MyAdoCommand.Execute;
MyAdoConnection.CommitTrans;
ExceptMyAdoConnection.RollbackTrans;
end;
end;