procedure InitClock; virtual;
Diese Methode erzeugt ein TClock-Objekt und weist dem Feld Clock einen Zeiger auf dieses Objekt zu.