procedure LocationSensor1LocationChanged(Sender: TObject; const OldLocation: TLocationCoord2D; const NewLocation: TLocationCoord2D)