Update dctevent.pas

+comments