procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
  const OldLocation, NewLocation: TLocationCoord2D);
begin
  TThread.Queue(nil, procedure
                     begin
                       Label1.Text := Format('Широта: %f'#13'Долгота: %f',
                                             [NewLocation.Latitude, NewLocation.Longitude]);
                     end
               );
end;