type TTitanicThread = class(TThread) public destructor Destroy; override; end; { TTitanicThread } destructor TTitanicThread.Destroy; begin inherited Destroy; //тут Breakpoint end;