Try

            If Not DM.ADOConnection.InTransaction Then DM.ADOConnection.BeginTrans;

            vQry := 'Insert into SENDDATA values ('''+FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)+''', '''+Temp+''') ';
            dm.ADOQuery1.SQL.Clear;
            dm.ADOQuery1.SQL.Text := vQry;
            dm.ADOQuery1.ExecSQL;
            DM.ADOConnection.CommitTrans;
        Except
                MsgWrite(MemoMDT, DataBase insert 오류);
                DM.ADOConnection.RollbackTrans;
        End;

이렇게 소스를 구성했는데 가끔 메시지가 활성중인 트랜잭션이 없습니다..  라는 오류 메시지가 뜹니다..
소스상으론 문제가 없어 보이는데 왜 이런 현상이 일어나는지 궁금합니다