TNewLineEvent
type
TNewLineEvent =
procedure
(Sender: TObject; NewLine: String; OutputType:
TOutputType
)
of object
;
Unit
TeeDosCommand