[kashperuk]

try
{
    ttsbegin;
    .... code here .... 
    ttscommit;
}
catch (Exception::Breakpoint) //или Break - не помню на память
{
   ttsabort;
   info("Breakpoint pressed");
}