Source position: shellcommand.pas line 12
type TOnCommandExecuted = procedure(
Sender: TObject;
cmdResult: string
) of object;