Source position: klog.pas line 35
type TKLogEvent = procedure(
Sender: TObject;
Code: TKLogType;
const Text: string
) of object;