Source position: solarsystems.pas line 275
type TObjectEvent = procedure(
Sender: TObject;
MObject: TMObject
) of object;