Source position: moonapi.pas line 46
type TMoonPhase = (
Newmoon,
WaxingCrescrent,
FirstQuarter,
WaxingGibbous,
Fullmoon,
WaningGibbous,
LastQuarter,
WaningCrescent
);