debugout

procedure debugout(

  const sender: tcomponent;

  const atext: ansistring

); overload;

procedure debugout(

  const sender: tobject;

  const atext: ansistring

); overload;