AreaRegisterDone: BOOL; pIB64: POINTER [...] ; FUNCTION cd [...] NowCodeInitDone := TIME(); FUNCTION cb