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;