事件。 例 6 . 例子 FUNCTION [...] 7 . 例子 FUNCTION

; FUNCTION cd [...] NowCodeInitDone := TIME(); FUNCTION cb