Source position: process.pp line 75
type TOnRunCommandEvent = procedure(
Sender: TObject;
Context: TObject;
Status: TRunCommandEventCode;
const Message: string
) of object;