Source position: dbgintfdebuggerbase.pp line 1510
type TDBGOutputEvent = procedure(
Sender: TObject;
const AText: string
) of object;