Source position: solarsystems.pas line 280
type TObjectPulseEvent = procedure(
Sender: TObject;
const ALapTime: munit
) of object;