Source position: location.pas line 19
type TLocationChanged = procedure(
Sender: TObject;
latitude: Double;
longitude: Double;
altitude: Double;
address: string
) of object;