Source position: location.pas line 23
type TOnGpsStatusChanged = procedure(
Sender: TObject;
countSatellites: Integer;
gpsStatusEvent: TGpsStatusEvent
) of object;