Source position: process.pp line 92
type TGetHandleEvent = procedure(
Sender: TObject;
var aHandle: THandle;
var CloseOnExecute: Boolean
) of object;