Fórum Transações com mysql 5.0 e sqlConnection #363594

Alguem poderia me dizer onde estou errando neste código delphi para testar a transação/commit/rollback

Chega ao rollback mas excluiu o registro da tabela

try
cds.Close;
cds.CommandText:=´START TRANSACTION´;
cds.Execute;

cds.CommandText:=´DELETE FROM EXT_MENSAGEM WHERE POMSGFK=1´
dm.cdsAll.Execute;

RAISE EXCEPTION.CREATE(´ERRO´); (*forçando*)
cds.CommandText:=´COMMIT´;
cds.Execute;


except
Begin
cds.CommandText:=´ROLLBACK´;
cds.Execute;
End;
end;